my $test = [1,2,3,4];
my %test = (array => $test);

print $test{array}
##</code><code>##

ARRAY(0x2251e4)
##</code><code>##

 
print $test{array}->[0];