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