E:\>perl -le "srand 1; print join q(,),map { int rand 100 } 1..10;"
0,56,19,80,58,47,35,89,82,74

E:\>perl -le "srand 1; print join q(,),map { int rand 100 } 1..10;"
0,56,19,80,58,47,35,89,82,74

E:\>perl -le "srand 1; print join q(,),map { int rand 100 } 1..10;"
0,56,19,80,58,47,35,89,82,74

E:\>perl -le "srand 1; print join q(,),map { int rand 100 } 1..10;"
0,56,19,80,58,47,35,89,82,74