@files = glob "*";
foreach $file (@files) {
    open(INPUT, $file);
    while(<INPUT>) {
        @line = split(/ /);
        foreach (@line){ $errors++ unless $d{$_}; }
    }
    close(INPUT);
}