ヤフーショッピングみたいにアクセス毎にデータをランダムに
表示させたいのですが、下記の方法より良い方法があればご提案ください。


open(IN,"$logfile") || &error("Open Error : $logfile");
@array = 0 .. <IN>;
@new;
for( @array ){
my $r = rand @new+1;
push(@new, $new[$r]);
$new[$r] = $_;
}
$i=0;
while(<IN>){
local($no,$date,$name) = split(/<>/);
$j=0;
for(0 .. 20){
if($new[$i+$j] eq $no){
print "$name";
}
$j++;
}
$i++;
}
close(IN);