Select Code to Download

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

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

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

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