#!/usr/bin/perl -w # Slicing an array. @array = (1,2,3,'red'); # Get a slice of array. @array[0,1,2] = ('green', 'blue', 'orange'); print "@array\n";