my %hash;
$hash{"one"} = [[1,2,3],[]];

##</code><code>##

print @{@{$hash{"one"}}[0]}, "\n";

##</code><code>##

print @{${$hash{"one"}}[0]}, "\n";

##</code><code>##

my @array = (4,5,6);
print @array[0];