demo6.pl

use v5.14;
use Spreadsheet::WriteExcel;

# Create the work book
my $workbook = Spreadsheet::WriteExcel->new('writer1.xls');

my $ws  = $workbook->add_worksheet();

my @data = qw/red blue green white cyan magenta black/;

while ( my ($idx, $val) = each @data ) {
    my $fmt = $workbook->add_format;
    $fmt->set_color( $val );
    $ws->write( $idx, 0, $val, $fmt );
}