$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'
                                  ]
                      };
    print 'Name: ', $adresse{Bernd}->{Name}, "\n";