Select Code to Download

my %reverse_hash;
foreach my $key ( keys %hash ) {
    push @{$reverse_hash{$hash{$key}}, $key;
}

my %reverse_hash;
while ( my ( $key, $value ) = each %hash ) {
    push @{$reverse_hash{$value}}, $key;
}