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