for my $i3 (1..9) { # ...

##</code><code>##

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

##</code><code>##

use strict;
use warnings;