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

##</code><code>##

while (f()) { ... }
until (f()) { ... }

##</code><code>##

{ ... }

##</code><code>##

if (f()) { ... }
unless (f()) { ... }

##</code><code>##

... while f();    Including: do { ... } while f();
... for @a;
... if f();
etc

##</code><code>##

grep { ... } @a
map { ... } @a