#! /usr/local/bin/perl # This is an example of array splicing, we will assign 4 values # to an array and then swap the middle two @array=(1,2,3,4); print "Values Before Splice: @array\n"; # should print 1 2 3 4 @array[1,2]=@array[2,1]; #take the second and third values and swap them print "Value After Splice: @array\n"; # will print 1 3 2 4