Select Code to Download

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

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