#WRONG: for(my $i=0; $i<$#foo; $i++){} #RIGHT: for(my $i=$[; $i<$#foo; $i++){}