#!/usr/bin/perl -w

use strict;

my %map = @ARGV;

chomp(my $line = <STDIN>);
my @fields = split /\t/, $line, -1;

for (@fields) {
	my $new = $map{$_};
	$new and $_ = $new;
}

print join("\t", @fields), "\n";

while (<STDIN>) {
	print
}