in reply to How do I loop through a list two or more elements at a time?

my @ary = qw(a b c d e f g);
@_ = @ary;
while (my ($one,$two) = (shift @_, shift @_)) {
   print "$one $two\n";
 last unless defined $two;
}

[download]

Originally posted as a Categorized Answer.

In Section Seekers of Perl Wisdom