If the values are unique:

my %rhash = reverse %hash;
my $key = $rhash{$value};
[download]

will give you the key for a given value.

If you might have duplicate values, grep is your friend:

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

If your values are numeric, use "==" instead of eq.