807 ：
S：
@doreka_array = qw( 1.txt 2.txt 3.txt ... 100.txt );
$doreka = $doreka_array[int rand @doreka_array];
みたいなのがいちばん簡単なのではないでしょうか。
$MAX = 100;
$doreka = (int(rand $MAX)+1). ".txt";
も、使えるかも。
均等さは1も2も同じだと思います。もともとrandは引数が大きくなれぱ
ランダムじゃなくなりますし、気にすることはないでしょう。
