chomp(my @file2 = <F2>);
while (<F1>) {
    print unless @file2 ~~ (split /\t/)[1];
}