Здравствуйте. Помогите правильно обьединить и создать хэш из другого хеша.

Есть такая структура (сделана через dump::dumper):
Каждый лист этого дерева расписан от корня.




Нужно совместить все уровни, чтобы не было повторений, верхних уровней. Чтобы получилось одно единственное дерево. Например имеется 2 одинаковых дерева "Магазин", всё что одинаковое обьединяется в массив.

Должно получиться что-то подобное:

[{
'name' => "Магазин",
'sub'  => [{
           'name' =>  'Универсам',
                     'sub' =>[{
                      .....
                     }]
            },
            {
           'name' =>  'Радуга',
                     'sub' =>[{
                   .......
                     }]
            },            
            ]
}]    


Это сообщение отредактировал(а) AlexanderI - 13.2.2015, 13:57

сделайте сначала hash по name

arto,  никак не могу придумать как.

my $name = delete $_->{'name'};
$_->{'name'} = delete $_->{'val'};
push @{ $hh->{ $name } }, $_;