#!/usr/bin/perl

use strict;
use warninigs;

my $fileList1 = $ARGV[0];
my $fileList2 = $ARGV[1];
my $line1;
my $line2;

open(FILE1, "< $fileList1");
open(FILE2, "< $fileList2");
open(TEMP, "> $fileTemp");

while ($line1 = <FILE1>) {
	  chomp $line1;
	  my @param1 = split("\t", $line1);
	  while ($line2 = <FILE2>) {
	  	    chomp $line2;
	  	    my @param2 = split("\t", $line2);
	  	    if ($param1[0] eq $param2[0] {
	  	       print TEMP $param2[0] . "\t" . $param1[1];
	  	    } else {
	  	           print TEMP $param2[0] . "\t" . $param2[1];	
	  	    }
	  }
}
close FILE1;
close FILE2;
close TEMP;
rename($fileTemp, $fileList2);