Use of uninitialized value in print at...

##</code><code>##

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

print Dumper $vals->{city}{name}, "\n";

}