my @better = grep({-f "./$_", readdir(DIR));
#                 ^         ^
#                 ^         ^