foreach my $vals ( keys %{ $xml }){
   print Dumper $vals;
}