http://qs321.pair.com?node_id=210432


in reply to Re: Re: random elements from array - new twist
in thread random elements from array - new twist

use List::Util qw(shuffle);

@a=qw(a b g f t h y); 

($a,$b,$c) = @a[(shuffle(0..$#a))[0..2]]; 

print " $a $b $c ";

[download]

In Section Seekers of Perl Wisdom