select((select FH, $|=1)[0]);

##</code><code>##

map { open DIR, $_; @{ ( [ readdir DIR ], close DIR  )[ 0 ] } } @dirlist;