Select Code to Download

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

#! perl -sw
use strict;
...
mine  1961/s   25%    --

C:\test>