Select Code to Download

my @numbers = ( 0..10 );
my @prime_numbers = @numbers[2,3,5,7];

my %london = (
    'Area'          =>  1572,       # Sq Km
...
);

my @lat_long = @london{'Lat','Long'};

my @location_fields = qw( Lat Long Elevation );

# Using the %london hash defined above
my %london_location = %london{ @location_fields };

my %london_location = map {$_=>$london{$_}} @location_fields;