use strict; my $a = [ qw(mary had a little lamb with mint jelly) ]; my $b = [ $a->[1..4] ]; my $c = [ @{$a}[1..4] ]; print "a is [ @$a ]\n"; print "b is [ @$b ]\n"; print "c is [ @$c ]\n";