>perl -wMstrict -le
"print get_IATA('bar');
 ;;
 sub get_IATA {
   my ($airline) = @_;
   ;;
   my @data = qw(fee fie foe foo barbell boff);
   ;;
   for my $i (1 .. $#data) {
     return $data[$i - 1] if $data[$i] =~ m{ \A \Q$airline\E }xms;
     }
   return '';
   }
"
foo