#!/usr/local/bin/perl @array = ("one", "two", "three", "four", "five"); @range = (1, 2, 3); @subarray = @array[@range]; print ("The array slice is: @subarray\n");