$simple1 = XML::Simple->new(ForceArray=>1, KeepRoot=>1);
$data1   = $simple->XMLin("query.xml");
print Dumper($data1) . "\n";