my $i = 0;
while( $i < 5 ) {
     print ++$i;
} 
1
2
3
4
5

##</code><code>##

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

##</code><code>##

 
$i=0; do{ print( $i ) } while $i++ < 5;
0
1
2
3
4
5