foreach my $i (@group) {
   $pm->start and next;
   foreach my $term (@$i) {
      warn "No such file. - $term\n" and next if ! -e $term;
      ...
      $IsGood = ...;
      our @quality;
      push @quality $IsGood;
   }
   $pm->finish;
}
$pm->wait_all_children;