my $xl=XMLin('C:/perlpractice/dec8.xml',ForceArray=>1); for$key(keys %$xl) { for $s(keys %{$xl{$key}}) { print $s; } }