use strict;

open(HASH, "testhash.txt") || die;
my $line = <HASH>;
chomp $line;
$line =~ s/'//g;
my %hash = split(/,/, $line);

print "\nEnter the keycode: ";
chomp($line = <STDIN>);
print "Keycode $line has the value $hash{lc($line)}\n" if ($hash{lc($line)});