sub remove_items {
    $index -= grep { $_ < $index } @_;
    delete @items[@_];
    @items = grep {defined} @items;
}