#!/usr/bin/perl -w

($a,$b,$c) = @ARGV;

if (scalar @ARGV!=3)
{
        print "Program Name [hash file] [outfmt file] [output file] \n";
        exit;
}

open FILE1, "$a" or die $!;
@arr0 = <FILE1>;
chomp(@arr0);
close(FILE1);


open FILE2, "$b" or die $!;
@arr2 = <FILE2>;
chomp(@arr2);
close(FILE2);


my %hash;
for($i=0;$i<=$#arr0;$i++)
{
 @arr1 = split(/\=/,$arr0[$i]);

   $hash{$arr1[0]} = $arr1[1];
}


open(OUT, ">>$c");
for($j=0;$j<=$#arr2;$j++)
{
   @arr3=split(/\t/,$arr2[$j]);

foreach $k (keys %hash)
{
   	if ($arr3[1] eq $k)
	{
	$arr3[1] = $hash{$k};
	}
}
print OUT "$arr3[0]\t$arr3[1]\t$arr3[2]\t$arr3[3]\t$arr3[4]\t$arr3[5]\t$arr3[6]\t$arr3[7]\t$arr3[8]\t$arr3[9]\t$arr3[10]\t$arr3[11]\n";

}

close(OUT);