Shuffling is still more work than you need to do if you can be destructive to the list. To pick $n items from list @list, use:

my @result;
push @result, splice @list, rand @list, 1 while @result < $n;
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.