my @colors = ("yellow", "blue", "red") 

##</code><code>##

 
my @colors = ("yellow", "blue", red")
my $color = some_cool_perl_random_thingie(@colors);
print "The surprise color is $color"