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