I'm a newbie and learning Perl by the minute. I'm not even sure if this is what you're looking for, but here is what I've come up with:
my @getme = qw(Area Mayor Long Lat);
%newlondon; @newlondon{$_}=$london{$_} for @getme;
Please let me know if this helps.