And of course we can fix this with the following code:

BEGIN {
my @list = 1..100; #or whatever;

*CORE::GLOBAL::rand = sub { return shift @list } #or something
}
[download]

and now your rand will return what ever you want it to.