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