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