#! perl
use strict;
use warnings;

my @list = ('a' .. 'z');
my $size = 5;

_array_chunk_it($size, @list);

while (my @chunk = _array_chunk_it())
{
    print "Array chunk of $size =\n", join("\n", @chunk), "\n\n";
}

{
    my ($array, $count);

    sub _array_chunk_it
    {
        my @chunk;

        if (@_)
        {
            $count = shift;
            $array = [ @_ ];
        }
        else
        {
            for (1 .. $count)
            {
                push(@chunk, shift @$array) if @$array;
            }
        }

        return @chunk;
    }
}