for my $key (reverse sort keys %hash) {
   print "\n<b>$key chars</b><br>\n";
   foreach my $element (@{$hash{$key}}) {
       print "<a href=\"link.pl?=$element\">$element</a>"; 
   }
    print "<br><br>\n";
}