Select Code to Download

for my $key (reverse sort keys %hash) {
   print "\n<b>$key chars</b><br>\n";
...
   }
    print "<br><br>\n";
}