Select Code to Download

use strict;
use warnings;
...
chomp( my $inData = <> );

print $words{$inData} // "Key '$inData' doesn't exist.\n";