$ 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) { (); }