see rand() in perlfunc
In reply to Re: Trial and error problems in Perl by Joost in thread Trial and error problems in Perl by dbdiaz