Re^2: best way to implement multiple foreach iterator variables?

I like List::MoreUtils natatime for this sort of task:

use List::MoreUtils qw( natatime );

my $next_two = natatime 2, @x;
while ( my ( $x, $y ) = $next_two->() ) {
    # do something with $x & y
};
[download]

Comment on Re^2: best way to implement multiple foreach iterator variables? Download Code