my $x = 0;
do {
    print "$x ";
} while ($x++ <10);