#!/usr/local/bin/perl
use strict;
use warnings;
my @stuff = qw(one two three four five six seven eight nine ten);
print "Before:\n\n", join(",", @stuff), "\n";
splice(@stuff, $#stuff, 0, splice(@stuff, 3, 1));
splice(@stuff, $#stuff, 0, splice(@stuff, 3, 1));
splice(@stuff, $#stuff, 0, splice(@stuff, 3, 1));
print "\nAfter:\n\n", join(",", @stuff), "\n";
exit 1;