in reply to Check randomly generated numbers have not been used before
perl -e 'for (0..100){$randhash{int (rand() * 100)} += 1}; print join +qq|\n|,sort {$a<=>$b} keys %randhash;'
Check elements that have > 1 in the value and recompute until you find a key that does fails exists.
Celebrate Intellectual Diversity
In Section
Seekers of Perl Wisdom