I wrote a perl script but I'm not sure if there's a better way of
doing it.
The script runs very slow because the input file (txt file) I'm
reading from is very big. The script reads the input text file and if
it finds any location that equals to the list in array, it will
replace it with location code.
Here's a part of the script:

...
....

        %LOCATION = (
        'Gaborone,,BC',                 "GBE",
        'Cairo,,EG',                    "CAI",
        'Nairobi,,KN',                  "NBO",
        'Dar es Salaam,,TN',            "DAR",
        'Kampala,,UG',                  "KLA",
        'Cape Town,,ZA',                        "CPT",
        'Johannesburg,,ZA',                     "JNB",
        'Pretoria,,ZA',                 "PRY",
        'Harare,,ZW',                   "HRE",
        'Windhoek,,NM',                 "ERS",

        'London,,UK',                   "LON",
        'Vienna,,OS',                   "VIE",
        'Brussels,,BX',                 "BRU",
        'Copenhagen,,DN',                       "CPH",
        'Berlin,,DL',                   "BER",
        'Frankfurt,,DL',                        "FRA",
        'Athens,,GR',                   "ATH",
        'Tallinn,,EO',                  "TLL",
        'Dublin,,IE',                   "DUB",
        'Madrid,,SP',                   "MAD",
         );

        while (<INPUT_FILE>) {
        chomp;
        ( $city, $state, $country, @data ) = split(/,/);
         $location = "$city,$state,$country";
         if ( defined @data[0] && ! defined $StartDD ) {
                $StartDD = @data[0];
          }
           $day3 = $data[8];   $max3 = $data[9];       $min3 = $data[10];  
   $wx3 = $CONDITION{$data[11]};

         foreach $location_name (%LOCATION ) {
                $location_code = $LOCATION{$location_name};

                if ($location_name eq $location ) {

                printf FILE "$location_code\,";
                        printf FILE "%4s", "$min3\,";
                        printf FILE "%4s", "$max3\,";
                        printf FILE "%1s", "$wx3\n";

                }      

        }
        close(INPUT_FILE);
        close(FILE);
        }