Help for this page
my @array = qw /one two three four five six/; for (my $i = @array; -- $i;) { my $r = int rand (1 + $i); @array [$i, $r] = @array [$r, $i] unless $r == $i; }
use Algorithm::Numerical::Shuffle qw/shuffle/; my @array = shuffle qw/one two three four five/;
www.com | www.net | www.org
No recent polls found