Zeile 32!
Da muss $hash{$key} stehen. Ohne das $ wird immer der Eintrag 'key' aus dem Hash genommen und der ist wahrscheinlich leer.
(Gibt das nicht eine Warnung?)

PS: Was mir noch aufgefallen ist:
Zeilen 15/16 mit my @attributes1 = (); bzw. ...2 können ersatzlos weg, da Du die Variablen nie verwendest. (Du verwendest gleichnamige Variablen, die aber lokal in den while-Schleifen sind.
Last edited: 2013-08-14 22:06:18 +0200 (CEST)