my @dir;
my @files = map {
    ($_ ne '.') && ($_ ne '..') &&
    -d "$base/$_" ?
        do { push @dir, $_; () } :
        -f "$base/$_" && $_
} readdir DIR;