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