map{[
   grep {defined}
   @array[$_*$len..$_*$len+$len-1]
   ]} 0..$#array/$len