Help for this page

Select Code to Download


  1. or download this
    my %H1 = {
            'THINGS' => ['thing1', 'thing2'],
    ...
    my $thing = 'thing1';
    
    deleteFromH1 ( $user ) if grep ($thing, @{$H1{'THINGS'}} );