my $it = natatime 3, 1,2,3,4;
while (my $i, $j = $it->()) {
    ...
};

##</code><code>##

pairwise { print $a; print $b; } @a, @b