perl -E'
use strict; use warnings;
use Data::Dumper;
use Spreadsheet::HTML;
my $href = { Adam => "Eve", Clyde => "Bonnie" };
my @data = ( [qw/Man Woman/], map { [$_, $href->{ $_ }] } keys %{ $href } );
my $make = Spreadsheet::HTML->new( data => \@data );
my $html = $make->portrait;
say $html;
'
<table><tr><th>Man</th><th>Woman</th></tr><tr><td>Adam</td><td>Eve</td></tr><tr><td>Clyde</td><td>Bonnie</td></tr></table>