$ perl -le 'for ( my $x=0; $x<3; print $x++ ) { }'
0
1
2
$ perl -le 'for ( my $x=0; $x<3; print ++$x ) { }'
1
2
3