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

##</code><code>##

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

##</code><code>##

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