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