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