my @array = qw(one two three four five six seven);
splice(@array,1,0,$array[4]); # add the item to the new position
splice(@array,5,1); # remove it from it's old position (note the moved index)
print "@array"'