print ("$charnames{$punctuation}\t$count\n");