#!/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";