If you want a specific sequence from rand, override *CORE::GLOBAL::rand with a sub that returns the series you wish to receive.

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