while( my $seq = $seqio->next_seq ) {
  my $blast_report = $blaster->blastall($seq);
  ...
  while( my $BLAST_result = $blast_report->next_result ) {
    ...
    while( my $hit = $BLAST_result->next_hit ) {
    ... 
    }
  }
}