foreach my $i (1..10) {
    print "$i\n";
}
1
2
3
4
5
6
7
8
9
10