リストのシャッフル 1時間は同じ内容で返す
@e=(0..99);
@e=shuffle_hour(@e);
print join( " ",@e),"\n";
sub shuffle_hour (@) {
my @a=\(@_);
my $n;
my $i=@_;
srand(int(time()/3600));
map {
$n = rand($i--);
(${$a[$n]}, $a[$n] = $a[$i])[0];
} @_;
}