$input_file = shift(@ARGV);
$refseq_file = shift(@ARGV);
$output_file = shift(@ARGV);

%symbol = ();
open( IN, "<".$refseq_file );
while( $L = <IN> ) {
    chomp( $L );
    @D = split( /\t/, $L );
    $symbol{$D[1]} = $D[12];
}
close( IN );

open( IN, "<".$input_file );
open( OUT, ">".$output_file );

$L = <IN>;
chomp( $L );
print OUT $L."\n";

while( $L = <IN> ) {
    chomp( $L );
    @D = split( /\t/, $L );
    if( exists $symbol{$D[0]} ) {
	print OUT $symbol{$D[0]};
	for( $i = 1; $i < scalar @D; $i++ ) {
	    print OUT "\t".$D[$i];
	}
	print OUT "\n";
    }
}

close( IN );
close( OUT );