Select Code to Download

my %hash;
push @{$hash{"3"}}, "apple";
...
   print "<b>$key characters</b><br>", join(", ", @{$hash{$key}}), "<b
+r><br>";
  
}

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>