my %hash;
push @{$hash{"3"}}, "apple";
push @{$hash{"2"}}, "pear";
push @{$hash{"5"}}, "orange";
push @{$hash{"3"}}, "grape";
push @{$hash{"2"}}, "icky pineapple";
# for a lack of a better way to show my hash
# we'll create our own the hard way

for my $key (reverse sort keys %hash) 
{
   print "<b>$key characters</b><br>", join(", ", @{$hash{$key}}), "<br><br>";
  
}

##</code><code>##

5 chars
<a href="link.pl?=orange">orange</a>

3 chars
<a href="link.pl?=apple">apple</a>, <a href="link.pl?=grape">grape</a>