my @rand = qw/
    0.78195951257749
    0.625570958105044
    0.884315045123127
    0.137177303290578
    0.0650888668725038
/;

use ex::override rand => sub {unshift @rand => pop @rand; $rand[0]};
print rand, $/ for 1 .. 5;