sub printcells {
    my $href = shift;

    my $html;
    $html .= "<TR><TD>$thishash{$_}</TD></TR>"
        foreach sort { $href->{$b} <=> $href->{$a} } keys %$thishash;

    return $html
}

sub GetReferersBar {
    my ($thisHash, $anotherHash) = @_;

    my $bartext = "<TABLE>";
    $bartext .= printcells($thisHash);
    $bartext .= printcells($anotherHash);
    $bartext .= "</TABLE>" ;

    return $bartext;
}