#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %address; $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' ] }; $address{Bernd}->{Books}->[3] = 'Goedel, Escher, Bach - An Eternal Golden Braid'; push @{$address{Bernd}->{Books}}, 'Icerigger'; $address{Bernd}->{Authors}->{Tolkien} = ['Silmarillion', 'Unfinished Tales']; print Dumper(\%address);