Help for this page
sub shuffle($$$) { my ($seed, $max, $input) = @_; ... return $result }
get_rand(\@$$) { my ($list, $seed, $input) = @_; ... } # might print 40 10 20 60 30 50
www.com | www.net | www.org
No recent polls found