Select Code to Download

<TABLE><TR>
        <TD>1</TD>
        <TD>2</TD>
...
        <TD>9</TD>
</TR>
</TABLE>

<TABLE><TR>
        <TD>1</TD>
        <TD>1</TD>
...
        <TD>3</TD>
</TR>
</TABLE>

use strict;
use warnings;
...
print $q->start_table(-border=>"1");
print map { $q->Tr($q->td($_),$q->td($test{$_})) } keys %test;
print $q->end_table(), "\n\n";

"A man's maturity -- consists in having found again the
seriousness one had as a child, at play."   --Nietzsche