Select Code to Download

for (my $i = 0, $i < $#arr, $i++) {
#corrections  ^      ^^           ^
#strictly speaking, the commas instead of semis are merely my preferen
+ces
...
}
<br>
<c>

C:\>perl -E "my @arr=qw(foo bar baz);for (my $x = 0; $x < @arr; $x++){
+ say $x };"
0
1
2