# 1.
... map { ... } @array;

# 2.
... grep { ... } @array;

# 3.
for my $item (@array) { ... }

# 4.
... for @array;

# 5.
for (my $i=0; $i<@array; $i++) { ... }

# 6.
my $i=0;
while ($i<@array) { ... $i++ } 

# 7.
my $i=0;
while ($i<@array) { ... } continue { $i++ }

# 9.
my $i=0;
... , $i++ while $i<@array;

# 10.
my $i=0;
MARK:
...
$i++<@array and goto MARK;

# 11.
my $i=0;
{
 ...
 $i++<@array and redo;
}

# 12.
... foreach 0..$#array;

# 13.
foreach (0..$#array) { ... }

# 14. Blame [tye]
for( pipe(IN,OUT) && do { local $,=$/; print IN @array,'' } && <OUT> ) { ... }