sub do_head {
       my($heading, @data) = @_;

      return "<h4>$heading</h4>" if grep { defined($_) } @data;
      return "";
  }