my (@dir, @other);
push @{ -d ? \@dir : \@other } for readdir DH;

##</code><code>##

my (@dir, @other) = part [ -d, ! -d _ ] readdir DH;

##</code><code>##

my (@dir, @other) = part [ -d, 1 ] readdir DH;