【Perl 】初心者コーナーPart5

今数当てゲームを作ってます。３ケタの数字を生成し、それぞれの桁の数字に
ダブりがないかをチェックしたいのですが、いろいろやったのですがどうも
うまくいきません。

なにかよいスクリプトがありましたら、教えていただけるとうれしいです。
ちなみに、こんな感じで生成しています。

srand;
for (0..$place-1) {
$rand[$_] = int(rand(9))+1;
}

# $place = ケタ数