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

##</code><code>##

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