could be this?

perl -e '$na=@a=(1..100); $nb=@b=(1..8); while(@a){print "\@a".++$j."\
+n";for($i=0;$i<=int $na/$nb; $i++){print ((shift @a)."\n")}}'
[download]