our @procs;
$mw->repeat( 100, \&diddleProcs );
MainLoop;
sub run { ... push @procs, $proc; }
sub diddleProcs {
    my @goners;
    my @alive;
    for ( @procs ){
      if( $_->alive ){ push @alive, $_; }
      else { push @goners, $_; }
    }
    @procs = @alive;
    PackGoners(\@goners);
}