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

##</code><code>##

if (($match[0] =~/\Q$sTab[1]\E/) and (define $match[1])){ 

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;

# I'm assuming you can't control how @flab is populated.
my @flab;
push @flab, "name_$_\ttitle_$_" for (1..200);

# turn @flab into a hash
my %titles = ();
foreach (@flab) {
    my ($name, $title) = split /\t/;
    $titles{$name} = $title;
}

open my $LONG_LIST, "<", "longlist.txt" or die "Cannot open file: $!";

say "Company\tName\tTitle";
while (<$LONG_LIST>) {
    chomp;
    my ($company, $name) = split /\t/;;

    say "$company\t$name\t$titles{$name}" if($titles{$name});
}

##</code><code>##

$ for i in `seq 1 72000`; do echo -e company_${i}\\tname_${i} >>longlist.txt ; done