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