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