my($from, $to);
pipe ($from, $to) or die "Oops Pipe: $!\n";
...
$fh{"FROM_CHILD_$loop"} = $from;
$fh{"TO_PARENT_$loop"} = $to;