Select Code to Download

@input = <INPUT>;
$query1_name = $input[0];
...
$query2_name = $input[2];
# ...
$query4 = $input[7];

my @query;
($query[$_]{name}, $query[$_]{content}) = @input[2*$_, 2*$_ + 1] for 0
+..3;

0  ARRAY(0x600500b60)
   0  HASH(0x600500a88)
...
   3  HASH(0x600635958)
      'content' => 8
      'name' => 7

@query1 = split ('', $query1);
@query2 = split ('', $query2); 
@query3 = split ('', $query3);
@query4 = split ('', $query4);

$query[$_]{split_content} = [ split '', $query[$_]{content} ] for 0..3
+;

*
 $query[$_]{length} =  scalar  @{ $query[$_]{'split_content'}}  for 0.
+.3;

0  ARRAY(0x600500b60)
   0  HASH(0x6005fdbb8)
...
      'name' => 7
      'split_content' => ARRAY(0x600636060)
         0  8

while ($counter <= $length1) #...

for my $counter (0..$length1) { ...

use strict;
use warnings;