my @places = @{$parse->{Placemark}};
while (my ($key, $val) = each %{$place}) {
    printf "%s is at %s\n", $key,  $val->{Point}{coordinates};
}