Select Code to Download

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

my %reverse_hash;

...

print(join(', ', @{$reverse_hash{$_)}), "\n");
   foreach keys %reverse_hash;