#!/usr/bin/perl
use strict;
use warnings;

my @backgrounds  = qw/aqua barnred butter cream gold grey ivory lavend
+er mint mushroom parchment pink sage skyblue tan/;
my @accents      = qw/aqua barnred black burgundy butter chocolate cre
+am gold grey ivory lavender mint mushroom parchment pink sage skyblue
+ tan terracotta turqouise violet/;
my @focuses      = qw/black burgundy chocolate terracotta turquoise vi
+olet/;

for my $background (@backgrounds)  {
   for my $accent (@accents) {
      for my $focus (@focuses)  {
      print "$background $accent $focus\n" unless $accent eq $focus;
      }
   }
}
[download]

Part of the problem with the problem is that *many* of the combinations will be stomach churning or illegible. Here is something you can test fly in the meanwhile.

This isn't the place for job offers, it's to get you to learn. Here is a Tk code snippet that gives you a quick start. One big problem, is that on X11, color names are defined in your rgb.txt file, which is usually in /usr/X11/lib/rgb.txt. My script below removed/changed your colors to accomodate the rgb.txt list. Now you can specify colors exactly like #ae55d916d916 , so you can use the Tk color selector widget, to get the exact rgb names for your colors like terracotta, etc.

#!/usr/bin/perl
use Tk;
use strict;

my $x=0;
my $y=0;

my @backgrounds  = qw/lightsteelblue red grey20 gold grey ivory lavend
+er green grey25 brown pink skyblue tan/;
my @accents      = qw/lightsteelblue red black darkred yellow chocolat
+e grey25 gold grey ivory lavender green grey60 white pink brown skybl
+ue tan violet/;
my @focuses      = qw/black darkred chocolate violet/;

my %nums;
my $count = 0;

for my $background (@backgrounds)  {
   for my $accent (@accents) {
      for my $focus (@focuses)  {
      #print "$background $accent $focus\n" unless $accent eq $focus;
      $nums{$count} = [ $background, $accent, $focus] unless $accent e
+q $focus;
      $count++;
      }
   }
}

#print keys %nums;

my $mw=tkinit;
$mw->minsize(qw(500 500));

$mw->fontCreate('big',
   -family=>'arial',
  -weight=>'bold',
  -size=>int(-18*18/14));

my $c = $mw->Scrolled('Canvas')->pack(-expand=>1,-fill=>'both');
$count = 0;
for (0..scalar keys %nums) {
 my $item=$c->createRectangle($x-200,$y,$x+200,$y+25,
             -fill=> ${$nums{$_}}[0],
             -outline => ${$nums{$_}}[2],
             -width=> 5,
          );

my $text = $c->createText($x+10,$y+10,
           -anchor=>'center',
       -fill => ${$nums{$_}}[1],
       -text => ${$nums{$_}}[0].'-'.${$nums{$_}}[1].'-'.${$nums{$_}}[2
+],
           -font => 'big',
          );
      
      $y+=40;
}

$c->configure(-scrollregion => [$c->bbox('all')] );


$mw->Button(
    -text    => "Save",
    -command => [sub {
         $c->update;
         my @capture=();
         my ($x0,$y0,$x1,$y1)=$c->bbox('all');
         @capture=('-x'=>$x0,'-y'=>$y0,-height=>$y1-$y0,-width=>$x1-$x
+0);
         $c -> postscript(-colormode=>'color',
                               -file=>$0.'.ps',
                   -rotate=>90,
                   -width=>800,
                   -height=>500,    
                   @capture);
                               
                  } 
   
  ]  )->pack;
  
MainLoop;
[download]