Hello Nige,

Thanks for that, it looks useful.

A few minor points:

• Although your code is, in fact, strict-compliant, it would be better to make this explicit with use strict;
• Since you’re not using the list returned by map, it would probably be clearer to use a for loop here:

  s/^(0x|#)(.{6})/$2/ for @hexSs;
  [download]

• The statement print "</TR>\n</TR>" is probably meant to be print "</TR>\n<TR>" (i.e. ending the last table row and beginning another)
• When comparing numbers, use > rather than gt (which is for stringwise comparison)
• Although the comparison is with 4, the logic actually prints 6 cells per row. I think the following is clearer:

  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>";
      }
  }
  [download]

Hope that helps,