my $tmp = join("|", keys %flab);
my $regex = qr/(?:$tmp)/;
while (my $sLine = <LONG_LIST>) {
   chomp $sLine;
   if ($sLine =~ $regex) {
      my ($company, $name) = split /\t/, $sLine;
      print RESULT "$company\t$name\t$flab{$name}\n";
   }
}