while ($stuff_to_do) {
  for my $job (@job_list) {
    $pm->start($job) and next;
    $pm->finish();
  }
  if ($still_doing_stuff) {
    # run_on_finish might push more stuff to @job_list
    $pm->wait_one_child();
  }
}