>>53
>foreach (keys(%data)){ if( rand($sum) < $data{$_} ){ $select = $_; last} }
コードとやりたいことが違ってない？
これだとどれ一つとして選択されない場合があると思うんだが。
rand() は一回だけで、0<=x<1, 1<=x<1+2, 1+2<=x<1+2+3 のどこに入るかで判断するべきなんじゃないかと。