use Data::Dumper; use strict; use warnings; my @array = qw( A B C ); my ($x, $y, $z) = (0, 1, 2); my @a = @array[0..1]; print Dumper(\@a); @a = @array[$x..$y]; print Dumper(\@a);