while (my $hit = $result->next_hit) {