$ perl -Mstrict -Mwarnings -E '
my $i = 1;
say +( $i ++ ) while $i <= 10;'
1
2
3
4
5
6
7
8
9
10
$ perl -Mstrict -Mwarnings -E '
my $i = 1;
say do { $i ++ } while $i <= 10;'
1
2
3
4
5
6
7
8
9
10
$