my $i = 1;
while (10 >= $i) {
    print $i++, "\n";
}