All I could say was wow! If I could ++5 I would. Thank you for the code. Very nice.
It would be very nice to be able to do this. I might take your code and make a module out of it (Nice - extremely short module). If people wanted it could even go on CPAN.
How about Taint::Runtime.
my @a=qw(random brilliant braindead); print $a[rand(@a)];