for my $i (1 .. 10) {
    print "$i\n";
}

##</code><code>##

use feature qw{ say };
say for 1 .. 10;

##</code><code>##

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