Select Code to Download

      abel appears  0 times in  0 files (not counting al.txt)
     baker appears  1 times in  1 files (not counting al.txt)
    camera appears  1 times in  1 files (not counting al.txt)
...
     fargo appears  4 times in  4 files (not counting al.txt)
    golfer appears  2 times in  2 files (not counting al.txt)
     jerky appears  3 times in  3 files (not counting al.txt)

my $name = 'al';
for my $kw (sort keys $name{$name}) {
    my $files = -1 + keys $kw{$kw}; # Do not include original file
...
    printf "%10s appears %2d times in %2d files (not counting %s.txt)\
+n",
            $kw,         $count,      $files,                 $name;
}