Select Code to Download

@hash{'AirIATA'}=get_IATA($airlineLoc,$hash{'Airline'});

...
my $letter2 = substr($hash{'AirIATA'},1,2);

print $letter1,"\n",$letter2,"\n";

sub get_IATA
{
...
                $count++;
        }
}