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")}}'