Help for this page

Select Code to Download

Select or download this

BEGIN {
   my @seq = ...;
   *CORE::GLOBAL::rand = sub { shift(@seq) };
}