foreach my $i (0 .. 100)

##</code><code>##

foreach my $element (@array) { print $element; }

##</code><code>##

foreach my $i (0 .. 9) { print $array[$i] }

##</code><code>##

my $i = 0;
foreach my $element (@array) { print "$i $element"; $i++ }

##</code><code>##

my $i = -1;
foreach my $element (@array) { $i++; print "$element $i"; }