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

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

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