#!/usr/bin/perl

use warnings;
use strict;
use 5.010;

my %p = ( 
	"Word1" => "WordWord1",
	"Word2" => "WordWord2",
	"Word3" => "WordWord3",
);

while(<STDIN>) {
	my $name = $_;
	print "$p{$name}\n";
}