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