You can use a slice

perl -e '@x=(qw(a b c d e f g)); push @y, @x[2..3]; print "@y\n"'
c d
[download]

update

Damn!. A few moments spent to approve the node made the difference. Zaxo anticipated me by a split second! :)