Select Code to Download

$nodes{$_}{name}||=$_
        for $c,$p;

delete $nodes{$_}
    for @children;

 'name' => 'a',
...
                                           'f' => {
                                                    'name' => 'f'

a
...
a:c:e
a:c:f

print $hash->{$key}->{'name'} . "\t";
print $hash->{$key}->{'addres'} . "\n";