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