Select Code to Download

sub remove_items {
    my ($i, %del) = (0);
...
                      or $index -= ($i <= $index), 0 
               } @items;
}

#! perl -sw
use strict;
...
BrowserUk 2123/s       32%        --

C:\test>