配列とrand関数を組み合わせたいのですが表示できません。
どうしたらよいでしょう？
@nakami = (0, 8, 4, 12, 23, 55);
foreach $aaa(@nakami){
if(rand $aaa){