my %address = (
                  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 'Other name: ', %address->{Name}, "\n";