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