for (my ($i, $n) = (1, 2);  $i < $limit;  $i += 2, ++$n) {
    do_something_with($i, $n);
    }