Array Perl

@array = qw( zero one two three four five six seven eight nine );
print "@array\n\n";
print "@array[ 1, 3, 5, 7, 9 ]\n";
print "@array[ 2 .. 6 ]\n\n";