my (@dirs,@files) = grep 
   { -d "$base/$_" and $_ ne "." and $_ ne ".." }
   { -f "$base/$_" } 
   readdir(DIR);