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;
}