my ($key) = grep {$value ~~ $hash{$_}} keys %hash;
print "Key = $key\n";