my %IATA = { };
$IATA{$_} = 'LON' for qw/lon london londonuk londonengland/;
...

my $city = 'London, UK';
my $city =~ s/\W//g;
my $code = $iata{lc($city)};
print $code, $/;