#!/usr/bin/perl -w
use strict;
use Spreadsheet::HTML;

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

my $data = [ [sort keys %hash], [sort { $a cmp $b } values %hash] ];

my  $generator = Spreadsheet::HTML->new( data   => $data,
                                         matrix => 1,  # no <th>
                                         indent => '  ' );
print $generator->portrait;

__END__

##</code><code>##

<table>
  <tr>
    <td>cherimoya</td>
    <td>kumquat</td>
    <td>lingonberry</td>
    <td>pomegranate</td>
  </tr>
  <tr>
    <td>green</td>
    <td>orange</td>
    <td>purple</td>
    <td>red</td>
  </tr>
</table>

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Spreadsheet::HTML;

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

my ($fruits, $colors) = ( [sort keys %hash], [sort { $a cmp $b } values %hash] );
my $data = [ $fruits, $colors ];

my  $generator = Spreadsheet::HTML->new(
      data   => $data,
      indent => '  ',
      th => { style => { background => $colors } },
      td => [ sub { my $c = shift; $c =~ s!(.*)!<font color="$1">$1</font>!; return $c } ],
    );  

print $generator->portrait;

__END__

##</code><code>##

<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><font color="green">green</font></td>
    <td><font color="orange">orange</font></td>
    <td><font color="purple">purple</font></td>
    <td><font color="red">red</font></td>
  </tr>
</table>