map {
     ($_ ne '.') && ($_ ne '..') &&
     push @{ -d "$base/$_" ? \@dirs : \@files }, $_
} (readdir DIR);