Slice

#!/usr/local/bin/perl
#program that uses an array variable as an array-slice subscript

@array = ("one", "two", "three", "four", "five");
@range = (1, 2, 3);
@subarray = @array[@range];
print ("The array slice is: @subarray\n");