@items = grep { 
	if (!exists $del{$_}) { 
		$i++;
		1;
	} else {
		$index -= 1 if $i <= $index;
		0 ;
	}
} @items;