Select Code to Download

  my %p;
  $p{$_} = undef for qw(eyes hair etc);

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

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