#!/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;
####
Before:
one,two,three,four,five,six,seven,eight,nine,ten
After:
one,two,three,seven,eight,nine,ten,four,five,six
##
##
Before:
one,two,three,four,five,six,seven,eight,nine,ten
After:
one,two,three,seven,eight,nine,four,five,six,ten