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