while (<DATA>) {
    chomp;
    my ( $c, $p ) = split /\|/;
    ...

# update: also need to change the print statement in sub trace_down():
     ...
        print  "$kid|$$tree{$kid}{child_of}\n";
        ...