Stephan: dynamisches initialisieren von mehrdimensionalen Hashes

Beitrag lesen

OK, ich dachte es wäre klar, wo das Problem liegt, sorry...
Also. In Zeile 2 und 8 (s.u.) hole ich jeweils die Referenz auf den Hash zum Key "test.de". Die Ausgaben aus den Zeilen 7 und 12 sollen zeigen, dass die Referenzen beide Male auf den gleichen Hash zeigen (da gleich Adresse ausgegeben wird).
In Zeile 4 fülle ich den mit dem key "test.de" verknüpften Hash dort mit einem Wertepaar. Die Ausgabe in Zeile 5 belegt dies.
Das Problem ist nun, dass wenn ich den Hash für "test.de" erneut hole (Zeile 8; Referenz verweis ja auf die gleiche Adresse, s.o.) und mir erneut die Keys anzeigen lasse (Zeile 10), die Keyliste (und somit der ganze Hash) nun leer ist! Eigentlich sollte doch der in Zeile 4 gemachte Eintrag dort immer noch drin sein, oder nicht?

Hab ich da was grundlegendes übersehen?

----------------------------
1 my $ref;
2 $ref = $domains{"test.de"};
3 %addresses = %{$ref};

4 $addresses{"juhu@test.de"} = 3;

5 print(keys(%addresses));
6 print("\n");
7 print($ref . "\n");

8 $ref = $domains{"test.de"};
9 my %addresses2 = %{$ref};
10 print(keys(%addresses2));
11 print("\n");
12 print($ref . "\n");
----------------------------

Danke nochmal!

Stephan