my $c;
while ($c++ < 10) {
    print "$c\n";
}