DB<107> $seen{int rand 10}=1 for 1 .. 1000000
 => ""

  DB<108> keys %seen
 => (6, 3, 7, 9, 2, 8, 1, 4, 0, 5)