my $i;
for $i (LIST) { ... }