Select Code to Download

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

sub extract(\%@) {
  my $h = shift;
...
# usage
my %location = extract %london, qw(Long Lat Elevation);
my %stats = extract %london, 'Population', 'Area'