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