Select Code to Download

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

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

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