[0] Perl> $a = [ qw(mary had a little lamb with mint jelly) ];;
[0] Perl> $b = [ @{ $a }[ 1 .. 4 ] ];;
[0] Perl> print @$b;;
had a little lamb