sub reversehash
{
    my $href = shift;

    my %h;

    for (keys %$href)
    {
        my $v = $href->{$_};

        if (exists $h{$v}) { $h{$v} .= "|$_"; }
        else { $h{$v} = $_; }
    }

    return \%h;
}

##</code><code>##

sub reversehash
{
    my %h;

    push @{$h{$_[0]->{$_}}}, $_ for keys %{$_[0]};
    $h{$_} = join '|', @{$h{$_}} for keys %h;

    return \%h;
}