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