for( my $i=1 also my j=3; cond; $i++ also $j+=3 ){
...