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)