for my $k (@required_fields) { for my $v ($href->{$k}) { StripLTSpace($v); $v or return DIRTY $row, "ERROR: required field $k not present"; } }