What do you mean it's not practical? {grin}

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