not able to get contents from hash after parsing xml

[vyomesh Kulkarni]

Have this xml file to parse and code written for the same is

#!/usr/bin/perl

use XML::Simple qw(:strict);
use Data::Dumper;

my $file = 'tc1.xml';
my $data = XMLin($file, ForceArray => 1, KeyAttr =>{},);


#print Dumper($data);

foreach my $TestCase (@{$data->{TestCase}}){
print $TestCase->{Action}->{run_cmd}->[0], "\n"
}

____________________________________________
the sample xml is here.

<TestSuite>
<TestCase name="first">

<Action>
<run_cmd>cmd</run_cmd>
<Args>@arr1</Args>
<Prompt>ok</Prompt>
<Ret_values>reference1</Ret_values>
</Action>

<Action>
<run_cmd>cmd1</run_cmd>
<Args>@arr1</Args>
<Prompt>ok</Prompt>
<Ret_values>reference1</Ret_values>
</Action>

</TestCase>


<TestCase name="second">

<Action>
<run_cmd>cmd2</run_cmd>
<Args>@arr1</Args>
<Prompt>ok</Prompt>
<Ret_values>reference1</Ret_values>
</Action>

<Action>
<run_cmd>some_command</run_cmd>
<Args>@arr2</Args>
<Prompt>ok</Prompt>
<Ret_values>reference1</Ret_values>
</Action>

</TestCase>
</TestSuite>

___________________________________________________

however, I am not able to retrieve the contents of xml. the dumper statement
gives me hash but not able to get individual elements. I am seeing the error
"Out of Memory!" can someone please help me in troubleshooting this issue.

Also, If i do this instead, then out of memory error is gone, but still not
able to get the individual elements.

foreach my $TestCase (@{$data->{TestCase}->{Action}}){
print $TestCase->{Action}->{run_cmd}->[0], "\n"
}



please help.

--
thanks,
vy