Select Code to Download

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

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