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