my %rhash = reverse %hash;
my $key = $rhash{$value};
##</code><code>##

my @keys = grep { $hash{$_} eq $value } keys %hash;