my @F2 = split("\t", $_); my $partner = <$IN2>; my @F3 = split("\t", $partner);