#!/usr/bin/perl -T

use strict;
use warnings;

# prints nothing, as expected
print do_head( "Empty" );

# prints "<H4>Appearance</H4>"; wish it didn't
my @p{ 'eyes', 'hair', 'etc' } = ();
print do_head( "Appearance", @p{ 'eyes', 'hair', 'etc' });


#------------------------------------------------
sub do_head {
	my $heading = shift;
	my @data = @_;

	return "<H4>$heading</H4>" if @data;
}