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

print $test{array}