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

##</code><code>##

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

##</code><code>##

(@foo,@bar,@zap,@slop) := part [ /foo/, /bar/, /zap/, ! ] @source;