%hash = map { $_ => 1 } @array;
open (FILE, $file) or die "blah";
while (<FILE>) {
  my $key = (split("\t",$_))[2];
  next unless ($hash{$key});
  # do processing of line here ...
}