#!/usr/local/bin/perl

@array = ("old1", "old2", "old3", "old4");
@array[1,2] = ("new2", "new3");
print ("@array\n");
