Select Code to Download

    55  while ( my ($punctuation, $count) = each(%wordHash) )
    56  {    
...
    58      $i++;
    59      print ("$count\t$charnames{$punctuation}\n");
    60  }