@files = sort grep -f, map {opendir DIR, $_; readdir DIR} @dirlist;

##</code><code>##

map { opendir DIR, $_; readdir DIR <, closedir DIR }