in reply to how to seperate array after a certain number of elements?

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

[download]

In Section Seekers of Perl Wisdom