my $i = 0;
print ++$i while $i < 5;
1
2
3
4
5