perl -e 'for (0..100){$randhash{int (rand() * 100)} += 1}; print join 
+qq|\n|,sort {$a<=>$b} keys %randhash;'
[download]

Check elements that have > 1 in the value and recompute until you find a key that does fails exists.