perl -e '@a=1..100;while(@a){push@b,[@a[0..4]];@a=@a[5..$#a];}'