#!/usr/local/bin/perl

@array = ("one", "two", "three", "four", "five");
@array[1,2,3] = @array[2,3,4];
print ("@array\n");
