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