Help for this page
@files = sort grep -f, map {opendir DIR, $_; readdir DIR} @dirlist;
map { opendir DIR, $_; readdir DIR <, closedir DIR }