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

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

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