Please read Perl Data Structures Cookbook.

use warnings;
use strict;

my %hash;

push @{ $hash{key1} }, 1, 2, 3;
$hash{key2} = [ 4, 5, 6 ];

my $array_ref1 = $hash{key1};
print "$array_ref1->[2]\n"; # output: 3

my $array_ref2 = $hash{key2};
print "$array_ref2->[1]\n"; # output: 5
[download]