for my $key (keys %{QUERY::}) {
    print "$key = $${\%{QUERY::}->{$key}}\n";
}