# %countries=('NL','The Netherlands','BE','Belgium','DE','Germany','MC','Monaco','ES','Spain');
%countries=(
 NL => 'The Netherlands',
 BE => 'Belgium',
 DE => 'Germany',
 MC => 'Monaco',
 ES => 'Spain'
);

print "Enter the country code:";
chop ($find=<STDIN>);

$find=~tr/a-z/A-Z/;
print "$countries{$find} has the code $find\n";