use strict; use warnings; my @array = qw(1 2 3 4 5 6 7 8 9); print "$array[0..3]";