my $searcher = new Plucene::Search::IndexSearcher($INDEXPATH);
my $pquery = $parser->parse($query);

#my $bool_scorer = Plucene::Search::BooleanScorer->new;

my $hc =Plucene::Search::HitCollector->new(
collect => sub 
{
  my ($self, $doc, $score) = @_;
  my $d = $searcher->doc($doc);
  $results{$d->get('id')->string()} = $score 
});