grep { exists $del{$_} ? ($index -= $i <= $index) && 0 : ++$i } @items