Select Code to Download

use strict;
use warnings;
...
for my $query (@{ $tree->{query} }) {
   print(Dumper($query));
}