for my $i (0..$#textarray) { # ...