It seems that this would give a penalty since there is now a copy of all arguments in @DB::args - unless @DB::args are just special pointers to the actual data with magic lookups upon access. Anyway - anybody have insight?
my @a=qw(random brilliant braindead); print $a[rand(@a)];