#!/usr/bin/perl
#
use warnings;
use strict;

my @colors = qw(red yellow green cyan blue magenta white gray black);

my $col = int(rand(scalar @colors));

print "Color = $colors[$col]\n";

##</code><code>##

C:\Code>perl choose_color_1.pl
Color = magenta

C:\Code>perl choose_color_1.pl
Color = red

C:\Code>perl choose_color_1.pl
Color = black