Re^3: Automatic Loop Counter not in perl

[wfsp]

I'd do it like this

my @array = qw{zero one two};

for my $i (0..$#array){
  print qq{$i\t$array[$i]\n};
}

[ikegami]

And if you really wanted $_:

my @array = qw{zero one two};

for my $i (0..$#array){
  for ($array[$i]) {
    print qq{$i\t$_\n};
  }
}