>>18
$i = 2;
unshift(@list,splice(@list,$i,1));