@list = (@list[0..$ptr], $item_to_insert, @list[($ptr+1)..$#list]);