foreach my $vals (values %{ $xml }) {

##</code><code>##

foreach my $vals (%{$xml}) {