×$i ++ ; -d $_ and splice @_, $i, 0, sort grep !/^\./, glob "$_/*" ;
◯$i ++ ; -d $_ and splice @_, $i, 0, sort glob "$_/*" ;