I like this a little better:

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

--
John.