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)
}
[download]