use warnings;
use strict;

use Spreadsheet::WriteExcel;

my $workbook  = Spreadsheet::WriteExcel->new("filename.xls") or die $!;
my $worksheet = $workbook->add_worksheet();
my $purple  = $workbook->set_custom_color(40, 175,200,200);
my $format = $workbook->add_format(bold => 1,bg_color => $purple);
my $row = 0;
foreach my $data (@something) {
    $worksheet->write_row($row,0,[$data],$format);
    $row++;
}