print "<b>$key characters</b><br/>",
    join(", ", 
      map{ '<a href="link.pl?=' . $_ . '">' . $_ . '</a>' } 
        @{$hash{$key}}
    ), 
    "<br/>" x 2;