foreach my $c ( @{$child_aref} ) {
                @{$child_aref} = grep { $_ ne $c } @{$child_aref} if ( waitpid($c, WNOHANG) < 0 );