#Format: Expression2 while Expression1;

$x=1;
print $x++,"\n" while $x != 5;