Select Code to Download

my $pipes = {};
for (qw/ ONE TWO THREE FOUR/) {
    pipe $pipes->{$_}{'FROM_CHILD'}, $pipes->{$_}{'TO_PARENT'};
   #etc
}

my $listen = {};
foreach $kid (qw/ ACE DEUCE TREY OOPS/ ) {
...
                        { handle => $from, pid => $pid }
                       };
}