for (0..(5-1)/2) {  # 1..5, step 2
   my $i = $_*2 + 1;
   ...
}