Perl function: srand

use warnings;
use strict;
use feature 'say';

srand(28081970);

for (1 .. 10) {
  say rand;
}

# 0.58203125
# 0.9383544921875
# 0.286651611328125
# 0.66912841796875
# 0.701873779296875
# 0.175872802734375
# 0.198944091796875
# 0.8096923828125
# 0.392120361328125
# 0.53692626953125