Perlでpythonのrandom.choiceをする実装 ref: http://qiita.com/akira_kumoi/items/4489069970060d2c1ec6