%charnames = (
    '?' => 'question mark',
    '.' => 'fullstop',
    ',' => 'comma',  # and so on
);

##</code><code>##

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