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

##</code><code>##

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

##</code><code>##

0  ARRAY(0x600500b60)
   0  HASH(0x600500a88)
      'content' => 2
      'name' => 1
   1  HASH(0x6005cffa8)
      'content' => 4
      'name' => 3
   2  HASH(0x6005cffd8)
      'content' => 6
      'name' => 5
   3  HASH(0x600635958)
      'content' => 8
      'name' => 7

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

0  ARRAY(0x600500b60)
   0  HASH(0x6005fdbb8)
      'content' => 2
      'length' => 1
      'name' => 1
      'split_content' => ARRAY(0x600635d30)
         0  2
   1  HASH(0x6005d0050)
      'content' => 4
      'length' => 1
      'name' => 3
      'split_content' => ARRAY(0x60063d850)
         0  4
   2  HASH(0x60063d928)
      'content' => 6
      'length' => 1
      'name' => 5
      'split_content' => ARRAY(0x6006360a8)
         0  6
   3  HASH(0x6006359d0)
      'content' => 8
      'length' => 1
      'name' => 7
      'split_content' => ARRAY(0x600636060)
         0  8

##</code><code>##

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

##</code><code>##

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

##</code><code>##

use strict;
use warnings;