$address{Bernd} = {
                       Name    => 'Bernd Dulfer',
                       Str     => 'Kapellenstr. 1',
                       EMail   => 'bdulfer@sybase.com',
                       Books   => [
                                   'Lord of the Rings',
                                   'Hitchhikers Guide to the Galaxy',
                                   'The Color of Magic'
                                  ]
                      };
    print 'Name: ', $address{Bernd}->{Name}, "\n";