ぉぉ、聞いてくれ、
for (my $i=0; $i<@ary; $i++) { print $i };
for my $i (0 .. $#ary) { print $i };
Deparse,-x7で前者はwhileになるが、後者はforeachに変換された。