Select Code to Download

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

my %rhash;
for (keys %hash) {
...
print("$value keys: ", 
      join(', ', @{$rhash{$value}}),
      "\n");