use strict;
use warnings;

my %words = ('hello' => 'world');

print 'type a word: '
chomp(my $inData = <>);

if($inData eq (keys %words){
   print 'value: ', values %words;
}