open(FILE1, 'text1.txt');
open(FILE2, 'text2.txt');
while ($line = <FILE1>) {
@lines=split("\t",$line);
print $lines[1];
        if($lines[1] != <FILE2>){
#       print "$line";
        }
}