Help for this page

Select Code to Download

Select or download this

my % phoneDirectory=(
    'Shirley'=> [ '555-0001', '555-0002' ],
...

#access numbers for Shirley
say $_ for @{$hash{'Shirley'}};

Select or download this

my %names;

...

# print names
print @{$names{'John'}};