push @{$data{$query}}, $_;

##</code><code>##

return \@{$data};

##</code><code>##

Using perl 5.6.1 unless otherwise noted.
Apache 1.3.27 unless otherwise noted.
Redhat 7.1 unless otherwise noted.