in reply to Perl - Unique Numbers

From Re: Non-Repetitive Random Numbers 
 DB<109> %seen=();

 DB<110> $seen{int rand 10000}=1 while (keys %seen <10)

 DB<111> keys %seen
 => (4402, 3312, 9339, 1345, 3461, 9357, 1185, 4646, 6571, 1315)

[download]

Cheers Rolf
(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!

In Section Seekers of Perl Wisdom