1
2
3

#!/usr/bin/perl -w
srand( 95558 );
print int rand( 61 ), " " for 1 .. 8;

Quote

You can call srand($seed) with the same $seed to reproduce the same sequence from rand(), but this is usually reserved for generating predictable results for testing or debugging. Otherwise, don't call srand() more than once in your program.