foreach loop on numbers

---

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

1
2
3
4
5
6
7
8
9
10