my @array = 1..10; for (my $i = 0; $i <= $#array; $i += 2) { my @chunk = @array[$i, $i + 1]; print "Chunk: @chunk\n"; }