I looked at two different approach:

$p1 = 1; $p2 = 4;

splice(@array,$p1+1,0,splice(@array,$p1,$p2-1));
[download]

AND

splice(@array,$p1,0,splice(@array,$p2,$p1) );
[download]

The second approach involves less 'moving'.

Artist