Select Code to Download

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

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