my %H1 = {
        'THINGS' => ['thing1', 'thing2'],
        'PEOPLE' => ['andy', 'margot', 'dave', 'joe'],
};
...

my $thing = 'thing1';

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