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