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