The KeepRoot=>1 is only making things more complicated.

use strict;
use warnings;

use Data::Dumper qw( Dumper );
use XML::Simple  qw( );

my $xs = XML::Simple->new(
   ForceArray => 1,
);

my $tree = $xs->xml_in("query.xml");

print(0+@{ $tree->{query} }, " queries\n");

for my $query (@{ $tree->{query} }) {
   print(Dumper($query));
}
[download]