chomp($in = <STDIN>);
if (exists $acro{$in}) {
   print "$in is the acronym for $acro{$in}\n";
} else {
   print "Sorry, unknown acronym"; 
}