#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @var = (
  ['Hund/Katze/Maus', 10],
  ['Hund/Katze/Igel',  9],
  ['Hund/Katze/Hase',  8],
  ['Wolf/Katze/Maus',  7],
  ['Wolf/Katze/Igel',  6],
  ['Wolf/Katze/Hase',  5],
  ['Hund/Tiger/Maus',  4],
  ['Hund/Tiger/Igel',  3],
  ['Hund/Tiger/Hase',  2],
  ['Wolf/Tiger/Maus',  1],
);

my $hashref = {};
my $deep=[];
for my $v ( @var )
{
  my $val=$v->[1];
  my @arr=split('/',$v->[0]);
  my $pos=0;

  my $tmp = \$hashref;
  for(@arr)
  {
    $$tmp->{summe}+=$val;
    push(@{$deep->[$pos]},$$tmp) if(!grep{$_ and $$tmp eq $_}@{$deep->[$pos]});
    $tmp = \$$tmp->{childs}->{$_};
    $pos++;
  }
  $$tmp->{summe}+=$val;
  push(@{$deep->[$pos]},$$tmp) if(!grep{$_ and $$tmp eq $_}@{$deep->[$pos]});
}

#print "Summe Wolf/Katze = ".$hashref->{childs}->{Wolf}->{childs}->{Katze}->{summe}."\n";
#print Dumper($hashref);

for my $pos (0..$#$deep)
{
  print "POS($pos): ";
  print "$_->{summe}, " for(@{$deep->[$pos]});
  print "\n";
}