#!/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__