#!/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";