Help for this page

Select Code to Download

Select or download this

my %H1 = {
        'THINGS' => ['thing1', 'thing2'],
...
my $thing = 'thing1';

deleteFromH1 ( $user ) if grep ($thing, @{$H1{'THINGS'}} );