use strict;
use warnings;
use Spreadsheet::HTML qw( portrait );

my %hash = (
    kumquat     => 'orange',
    pomegranate => 'red',
    cherimoya   => 'green',
    lingonberry => 'purple'
);

my @data = ( [sort keys %hash], [map $hash{$_}, sort keys %hash] );

print portrait(
    data   => \@data,
    indent => '  ',
    th => { style => { background => $data[1] } },
    td => { style => { background => $data[1] } },
);

__DATA__
<table>
  <tr>
    <th style="background: green">cherimoya</th>
    <th style="background: orange">kumquat</th>
    <th style="background: purple">lingonberry</th>
    <th style="background: red">pomegranate</th>
  </tr>
  <tr>
    <td style="background: green">green</td>
    <td style="background: orange">orange</td>
    <td style="background: purple">purple</td>
    <td style="background: red">red</td>
  </tr>
</table>

##</code><code>##


##</code><code>##


##</code><code>##