my %hash = (one => 'uno', two => 'dos', three => 'tres');

my $input = <STDIN>;
chomp $input;

if (my $ans = $hash{$input}) {
    print "$input => $ans\n";
}