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

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

}