Perl module for sampling from a discrete probability distribution (aka rolling loaded dice :-) )