Thank you. That was actually something I was interested in as well. Forgive my naivety but what search parameters did you use to find it.

my @a=qw(random brilliant braindead); print $a[rand(@a)];