$a=0; 
do { 
    print $a++, "\n" 
} while ($a < 10)