sub GetReferersBar{
    my ($key,$value,%thishash,$bartext);

# This line simply asserts that $i, when first declared and
# converted to a number is zero.
    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;
}