Help for this page
sub test_it (\%) { my ($h) = @_; ... && !grep { !defined($h->{$_}) } @required); # return true if the list of missing required keys is empty }