sub all_href_values_defined {
 my $href = shift;
 for (@_ ? @$href{@_} : values %$href) {
  return 0 unless defined;
 }
 return 1;
}