#!/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) }
In reply to is rand() random by thunders
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |