#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %adresse; $adresse{Bernd} = { Name => 'Bernd Dulfer', Str => 'Kapellenstr. 1', EMail => 'bdulfer@sybase.com', Buecher => [ 'Der Herr der Ringe', 'Per Anhalter durch die Galaxie', 'Die Farben der Magie' ] }; $adresse{Bernd}->{Buecher}->[3] = 'Gödel, Escher, Bach - Ein endlos geflochtenes Band'; push @{$adresse{Bernd}->{Buecher}}, 'Die Eissegler von Tran-ky-ky'; $adresse{Bernd}->{Autoren}->{Tolkien} = ['Silmarillion', 'Unfinished Tales']; print Dumper(\%adresse);