#! /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