for my $j (0..$#{$responsetextall[$i]}) {