my %location = map { $_ => $london{$_} } qw(Long Lat Elevation);