for (my $i = $[; $i <= $#ary; $i++)
{
  # ...
}

##</code><code>##

foreach my $i ( $[ .. $#ary )
{
   # ...
}

##</code><code>##

foreach my $element (@ary)
{
  # ...
}