I doubt it will have much impact on speed, but

    (exists $query{$item}) ? ($query{$item}=$query{$item}+1) : ($query
+{$item}=1);
[download]

is more simply written as

    $query{$item}++;
[download]

Did you profile your code (see perldoc perlrun)?