my @colors = qw(red green yellow blue cyan magenta);
my @tmp    = ();
for (@colors) {
    push (@tmp, "bold $_");
}
@colors = (@colors, @tmp);