Kleiner Hinweis:

2012-11-30T15:45:42 hlubenow

Code (perl): (dl )

1
2
3

if (! exists($h2{$h{$i}})) {
        $h2{$h{$i}} = [];
}

Den Teil braucht man eigentlich nicht, das geht automagisch und verwirrt (mich).