@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]; } @_; }

use List::Util; @e=(0..99); @e=List::Util::shuffle(@e); print join( " ",@e),"\n";