#!/usr/local/bin/perl @array = ("old1", "old2", "old3", "old4"); @array[1,2] = ("new2", "new3"); print ("@array\n");