Hola...
Aqui te pongo un pequeño ejemplo que se me ocurrio, aunque es muy sencillo lo probe y me funciono:
Código:
my @array = ('Rojo', 'Azul', 'Verde', 'Cafe', 'Morado');
my $item = int(rand(@array));
print "Content-type: text/html\n\n";
print "$array[$item]\n";
SALUDOS