Perlで1から10までの数字をランダムに$suujiに代入するにはどうすればいいの？(;´Д`)