#!/usr/bin/env perl

use strict;
use warnings;

our %code;

while (<>){
	chomp;
	my @tokens = split " ", $_;
	my $protein = shift @tokens;
	for my $token (@tokens) {
	    $code{$token} = $protein;
	}
}

foreach my $key (sort keys %code){
	print "$key\t$code{$key}\n";
}