Select Code to Download

my $list = [0..10];
print @$list[3..6];

my @list = ([0..10]);
print @{$list[0]}[3..6];