Select Code to Download

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

while ( my ($punctuation, $count) = each(%wordHash) )
{    
    push @wordArray, "$count\t$punctuation"
    print ("$count\t$charnames{$punctuation}\n");
}