http://www.perlmonks.org?node_id=175678

thunders has asked for the wisdom of the Perl Monks concerning the following question:

I'm a little confused abour rand() In theory, I would think the larger the number to randomise the less likely a duplicate will be picked. I notice with small values, lets say < 1000000 we get a lot of dupes printed, but as I increase the number to a huge value I still get about a dozen dupes, approximately the same that I get for randomizing a million. why isn't random more random
#!/usr/bin/perl my @numbers; push @numbers,(int rand(100000000)) for (1..1000); my %seen; for (@numbers){$seen{$_}++} for(keys %seen){ $value = $seen{$_}; print qq{$_ seen $value times\n} if ($value > 1) }