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


in reply to Re: Efficiently selecting a random, weighted element
in thread Efficiently selecting a random, weighted element

I think xdg's suggestion is reasonable.
  • Comment on Re^2: Efficiently selecting a random, weighted element

In Section Cool Uses for Perl