>perl -le "$::i=q{Pass }; for(1..3){my $i if 0; ++$i; print $::i, $i}"
Pass 1
Pass 2
Pass 3

>perl -le "$::i=q{Pass }; for(1..3){            ++$i; print $::i, $i}"
11
22
33