my %reverse_hash;
foreach my $key ( keys %hash ) {
    $reverse_hash{$key}=$reverse_hash{$key}
                        ? "$reverse_hash{$key},$hash{$key}"
                        : $hash{$key};
}