sub reversehash
{
    my $href = shift;

    my %h;

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

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

    return \%h;
}