Interesting - I didn't know they had changed it on 5.8.0. Perl 5.6.0 still used it the same old way. The new way still actually uses the exact same mechanism - just using different programming technique.
my @a=qw(random brilliant braindead); print $a[rand(@a)];