Help for this page

Select Code to Download

Select or download this

@items = grep { 
    if (!exists $del{$_}) { 
...
        0 ;
    }
} @items;