http://www.perlmonks.org?node_id=872007


in reply to Re^6: Generate a unique ID
in thread Generate a unique ID

a 1 in 30 chance
That's just because your PRNG is only 15 bits: 

$ perl -e 'printf "%.3f%", 2**15/1e4'
3.277%

[download]
With a decent PRNG, you'd have a much lower chance of collisions.

In Section Seekers of Perl Wisdom