With older versions of Perl, it can be rewritten as a proper iterator :-)

use strict;
use warnings;

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

my $chunker = _array_chunk_it($size, @list);

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

sub _array_chunk_it {
  my ($count, @array) = @_;

  return sub {
    my @chunk;

    for (1 .. $count) {
      push(@chunk, shift @array) if @array;
    } 

    return @chunk;

  } 
}
[download]

(Using a closure we can actually call _array_chunk_it multiple times, in an overlapping manner. Have multiple iterators running simultaneously. Plus it looks quite a bit nicer.)