Select Code to Download

#!usr/local/bin/perl
use strict;
...
    $i++;
    print ("$count\t$charnames{$punctuation}\n");
}

Enter filename to search for punctuation characters: ooperl.txt

...
7       comma
Use of uninitialized value in array element at punctuation.pl line 57.
1       open bracket