my %newhash;
@newhash{@selection} = @oldhash{@selection};

##</code><code>##

my %london_location;
@london_location{@location_fields} = @london{ @location_fields };

##</code><code>##

my %newhash = %oldhash{@selection}:pairs