my @colors = qw(red yellow green cyan blue magenta white gray black);
print $colors[rand @colors], "\n";