sub GetReferersBar{
	my ($key,$value,%thishash,$bartext);
	my ($i)==0;	my ($nrefs,$n1,$n2);
	sub by_value { $a <=> $b };
	sub printcells {
	    my ($maxcols,$reference_to_values)=@_ ;
            my ($i,$html);
	    my %thishash = %{$reference_to_values}; 
            sub by_nhits { $thishash{$b}<=>$thishash{$a} };  
            foreach $key (sort by_nhits keys %thishash) {
                $html .= "<TR><TD>$thishash{$key}"
            }
	    return $html
	}

        $bartext = "<TABLE>";
	$bartext .= &printcells($nrefs,\%ThisHash);
	$bartext .= &printcells($nrefs,\%AnotherHash);  # LINE A <-- problem
	$bartext .= "</TABLE>" ;
	return $bartext;
}