CHILD:
foreach my $child ( 0 .. $#names ) {
    my $pid = $pm->start($names[$child]) and next;

    # Child process...
}

##</code><code>##

CHILD:
for my $child ( 0 .. $#names ) {
    my $pid = $pm->start($names[$child]);
    
    next CHILD if $pid != 0; # Parent process

    # Child process...
}