sub remove_items {
	my ($i, %del) = (0);
	@del{@_} = undef;
	@items = grep { !exists $del{$_} 
                      and ++$i 
                      or $index -= ($i <= $index), 0 
               } @items;
}