Select Code to Download

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

splice(@array,$p1,0,splice(@array,$p2,$p1) );