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