(Perl) Replaces random number generation with non-random number
generation