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