$h{'one'} = [1,2,3];

##</code><code>##

print "$h{'one'}[1]\n";

##</code><code>##

my @a = $h{'one'};
print "$a[1]\n";