##

use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $XML = XMLin("C:\\Users\\Administrator\\Desktop\\Sample\\VERSION2\\testcase.xml");

my $testcaseid=$XML->{Testcaseid};
print Dumper(\$testcaseid);

my ($testcase,$teststep,$key,$steps);
while (($testcase,$teststep)=each @{$testcaseid}){
		foreach my $steps (values %{$teststep}) {
		print "$steps\n";
		}	
	}