Select Code to Download

  print "<b>$key characters</b><br/>",
    join(", ", 
...
        @{$hash{$key}}
    ), 
    "<br/>" x 2;