use strict;

my @color = qw(red green blue cyan);
my $color = $color[rand @color];
...