use strict;
use warnings;
…..

#Array constains 200 elements, each element is a name and a title tab separated
@flab = [ ‘Name’ and a ’Title’ ]

#open LONG_LIST of 72,000 lines for reading line by line
open (LONG_LIST, $longList) or die "Cannot open file"; 


 print RESULT “Company"."\t”.”Name"."\t”.”Title"."\n"; 

 while (my $sLine = <LONG_LIST>){	
 	chomp $sLine; 
     #split LONG_LIST lines into two fields ‘Company' and ’Name'
 	my @sTab = split (/\t/,$sLine); 
 	
     foreach (@flab){ 
 	  	my $line = $_;
               
           #split each @flab line into two fields ‘Name’ and ’Title'
 	  	my @match = split (/\t/,$line); 

            #match ’Name’ in LONG_LIST to ‘Name' in @flab
   		if (($match[0] =~/\Q$sTab[1]\E/) and (define $match[1])){ 
            #print ‘Company', ‘Name', ’Title' 
   		  print RESULT $sTab[0]."\t".$sTab[1]."\t".$match[1]."\n";
   		} 
       }
 }

…..

__END__