...
   foreach (@jobs) {
      die "Fork failed: $!\n" unless defined (my $pid = fork);
      exit &process($_) unless $pid;
   }
   1 until -1 == wait;
   ...