$ 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

##</code><code>##

$ perl -MO=Deparse -e 'for ( my $x=0; $x<3; print $x++ ) { }'
for (my $x = 0; $x < 3; print $x++) { (); }
$ perl -MO=Deparse -e 'for ( my $x=0; $x<3; print ++$x ) { }'
for (my $x = 0; $x < 3; print ++$x) { (); }
$ perl -MO=Deparse -e 'for ( my $x=0; $x<3; ++$x ) { }'
for (my $x = 0; $x < 3; ++$x) { (); }
$ perl -MO=Deparse -e 'for ( my $x=0; $x<3; $x++ ) { }'
for (my $x = 0; $x < 3; ++$x) { (); }