open(FILE1, $ARGV[0]);
while($line = <FILE1>) {
        chomp($line);
    @words = split(/\t/, $line);
        $hash1{$words[0]} = $words[1];
}
close(FILE1);
open(FILE3, ">$ARGV[2]");
while (($key, $value) = each(%hash1)){
    print FILE3 $key."\t".$value."\n";
}

print "\n";
open(FILE1, $ARGV[1]);
%hash2 = map { chomp; split /\t/ } <FILE1>;
close(FILE1);
while (($key, $value) = each(%hash2)){
    print FILE3 $key."\t".$value."\n";
}

print "\n";