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


##</code><code>##

delete $nodes{$_}
    for @children;

##</code><code>##


 'name' => 'a',
          'kids' => {
                      'c' => {
                               'name' => 'c',
                               'kids' => {
                                           'e' => {
                                                    'name' => 'e'
                                                  },
                                           'f' => {
                                                    'name' => 'f'


##</code><code>##


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


##</code><code>##

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