Select Code to Download

15,10,name3
10,#####,name1
12,10,name2
5,12,name4
8,5,name4

my %data =
    (
...
    my $line = join("\t|||\t",@parent_list)."\n";
    print $line;
}

    E 
    F       |||     E 
...
    B       |||     F       |||     E
    D       |||     F       |||     E 
    A       |||     D       |||     F       |||     E

$VAR1 = {
          'A' => {
...
                     'data' => 15
             },
    }

$VAR1 = {
        '8' => {
...
                     'name' => 'full_D'
               },
    }

<id>,<parent>,<name>
5,###,full_A
8,5,full_B
9,5,full_C
10,8,full_D

A
B,A
C,B,A

$VAR1 = {
          '/perl/5.14.1/strict.pm' => {
...
                                    'data' => 2
                                  }
        };

$VAR1 = {
        '7299' => {
...
                    'name' => './hello_world.pl'
                  }
        };

./hello_world.pl
/perl/5.14.1/strict.pm,./hello_world.pl
...
./bye_world.pl,./hello_world.pl
some_text.txt,./hello_world.pl
some_text.txt,./bye_world.pl,./hello_world.pl

    <file1>,<chain-file(N-1)>,<chain-file(N-1)>,...,<chain-file1><br>