@files = @ARGV;
$size = @files;


open (FA, ">>comp.txt");

open (FH, @ARGV[0]);
while ($seq = <FH>)
{ chomp $seq;
@seq = split ("\t", $seq);

$seqm = @seq[0];
chomp $seqm;
open (FH1, @ARGV[1]);

while ($seq2 = <FH1>)
{ chomp $seq2;
@seq2 = split ("\t", $seq2);

$seqm1 = @seq2[0];
chomp $seqm1;
if ($seqm1 =~m/$seqm/)
{$names=$names."\n".$seq."\t".@seq2[1]."\n";
$c=1;
last;}
else {$c=0;}

}
if ($c=="0")
{$names=$names."\n".$seq."\n";}
}

open (FH, @ARGV[1]);
while ($seq = <FH>)
{ chomp $seq;
@seq = split ("\t", $seq);

$seqm = @seq[0];
chomp $seqm;
open (FH1, @ARGV[2]);

while ($seq2 = <FH1>)
{ chomp $seq2;
@seq2 = split ("\t", $seq2);

$seqm1 = @seq2[0];
chomp $seqm1;
if ($seqm1 =~m/$seqm/)
{
$c=1;
last;}
else {$c=0;}

}
if ($c=="0")
{$names1=$names1."\n".$seq."\n";}
}
print FA $names."\n".$names1;