【Perl 】初心者コーナーPart5

ランダム性について質問させてください。
例えば、１００のパターンの分岐をさせたい場合、

-方法１-
srand();
$randam = int(rand(100));

if ($randam == 1){
$doreka = "1.txt";
}elsif ($randam == 2){
$doreka = "2.txt";
}elsif ($randam == 3){
$doreka = "3.txt";

･･････以下elseまでずっと続く･･･。

-方法２-
パターンを20個つづの5グループに分けて、
最初にグループを選んで、次にグループの中で
パターンを選ぶ･･･

この場合、均等にばらけさせるのは方法２のほうなのでしょうか？
また、他にもっと効率よくばらけさせる方法はあるでしょうか？