use warnings;
use strict;
use HTML::Tiny;

my $hashref = {
	'Adam'  => 'Eve',
	'Clyde' => 'Bonnie',
};

my $h = HTML::Tiny->new;
print $h->table( [ $h->tr(
	[ $h->th( 'Foo', 'Bar' ) ],
	map( {
		[ $h->td( $_, $hashref->{$_} ) ]
	} sort keys %$hashref )
) ] );

__END__

<table><tr><th>Foo</th><th>Bar</th></tr>
<tr><td>Adam</td><td>Eve</td></tr>
<tr><td>Clyde</td><td>Bonnie</td></tr>
</table>