my $cell = 0;

for my $hex (@hexSs)
{
    print "<TD BGCOLOR='#$hex'>",
          "<FONT COLOR='white'>$hex</FONT><BR /><BR />",
          "<FONT COLOR='black'>$hex</FONT></TD>";

    if (++$cell >= 6)
    {
        $cell = 0;
        print "</TR>\n<TR>";
    }
}