while (my $sLine = <LONG_LIST>) {
   chomp $sLine;
   my ($company, $name) = split /\t/, $sLine;
   if (exists $flab{$name}) {
      print RESULT "$company\t$name\t$flab{$name}{TITLE}\n";
   }
}