for my $i (0..(length($_) -1)) {
...