Select Code to Download

use Data::Dumper;

my %words = ( 'hello' => 'world' );
...
print $words{$inData} //= "Key '$inData' doesn't exist.\n";

print Dumper \%words;

type a word: Bonjour
Key 'Bonjour' doesn't exist.
...
          'Bonjour' => 'Key \'Bonjour\' doesn\'t exist.
'
        };