foreach my $vals (keys %{$xml}) {
print $vals->{city}{name}, "\n";

}