sub remove_item
{
  my %del = map {$_=>1} @_;

  my @part_1 =
    grep { !exists $del{$_} } @items[0..$index];
  my @part_2 =
    grep { !exists $del{$_} } @items[$index+1..$#items];

  $index = $#part_1;
  @items = (@part_1, @part_2);
}