DB<119> $a=0
 => 0

  DB<120> while ($a++,$a<5) {print "$a\n"}
1
2
3
4