my @files = map { "$dir/$_" } grep !/^\.{1,2}$/, readdir(DIR);