for (1..3) { ... }
for (@a) { ... }
for (my $i=10; $i--; ) { ... }