my @newarray;
while (my @array = splice @oldarray,0,15) {
    push @newarray,\@array;
}
[download]

Hope this helps.

Liz

use constant NUM_ELEMENTS => 15;
# Get the starting_array from somewhere
my @starting_array = populate_somehow_with_data();

my $start_index = 0;
while ($start_index <= $#starting_array)
{
    my $end_index = $start_index + NUM_ELEMENTS - 1;
    $end_index = $#starting_array if $end_index > $#starting_array;

    my @array_slice = @starting_array[$start_index .. $end_index;
    $start_index += NUM_ELEMENTS;

    # use @array_slice here to do what you need to do.
}
[download]

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

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