Well...you could do this:

my @arrays = map([ @inarray[$_*15 .. ($_*15+14<$#inarray?$_+14:$#inarr
+ay)] ],(0..int($#inarray/15)));
[download]

This will return a list of lists of your @inarray. Check out map, perllol and perldsc for more information about complex data structures in perl. Of course, if you're merely looking to iterate over the data, there are much better ways to do this than taking up more memory than you need by creating copies of all your data.

Hope this helps.

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1