my %reversed = reverse %hash;

##</code><code>##

my $value = 'whatever';
my $key = $reversed{$value};