note davido <p>I was just about to follow up with that [cpan://List::MoreUtils|pairwise] option. Glad I saw your update before I did. But I still wanted to mention that I find it necessary to write it something like this:</p> <c> print pairwise{ no warnings 'once'; "$a $b\n" } @nums, @dat; </c> <p>...lest I get a pair of warnings that <c>$a</c> and <c>$b</c> are used only once.</p> <p>[cpan://List::MoreUtils] provides several ways to do it. This isn't quite as elegant, but still seemed neat to me.</p> <c> my $ea = each_array( @nums, @dat ); while( my( $n, $d ) = $ea->() ) { print "$n $d\n"; } </c> <p><b>Update:</b> I've submitted a patch and a corresponding test targeting the 'used only once' warnings.</p> <div class="pmsig"><div class="pmsig-281137"> <br /><p>Dave</p> </div></div> 966310 966313