I am having problem with the following codes. The second time I call &printcells (line A) the hash does not result being printed properly sorted by value as I would like. %AnotherHash is printed sorted by the values of %ThisHash Any idea what is wrong? 
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 <-- probl
+em
    $bartext .= "</TABLE>" ;
    return $bartext;
}

[download]

In reply to problem in sorting hash by value by an_mo

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.