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

    # Child process...
}