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