1 2 3 4 5 6 7 8
use strict; use warnings; foreach my $m (0 .. 9){ srand $m; my $r = rand(10); print "value=$r\n"; }
1 2 3 4 5 6 7 8 9 10
value=1.7082803610629 value=0.416303447718782 value=9.12432653437467 value=7.83234962103055 value=6.54037270768644 value=5.24839579434232 value=3.95641888099821 value=2.66444196765409 value=1.37246505430998 value=0.080488140965862