BEGIN { 
  our @RAND = ();
  our $COUNTER = 0;

  for (<DATA>) {
    $_ += 0;
    push @RAND, $_;
  }

  *CORE::GLOBAL::srand = sub(;$){ $COUNTER = 0 }; 
  *CORE::GLOBAL::rand  = sub(){ return $RAND[$COUNTER++] };
}