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)
     delta appears  2 times in  1 files (not counting al.txt)
    edward 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)

##</code><code>##

my $name = 'al';
for my $kw (sort keys $name{$name}) {
    my $files = -1 + keys $kw{$kw}; # Do not include original file

    my $count = -$kw{$kw}->{$name};
    $count   +=  $kw{$kw}->{$_} for keys $kw{$kw};

    printf "%10s appears %2d times in %2d files (not counting %s.txt)\n",
            $kw,         $count,      $files,                 $name;
}