Select Code to Download

#!/usr/local/bin/perl
use strict;
use warnings;
...
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