Check
rand and also there's this other module suggested by the documentation of the seeding function srand to generate more randomized values "
Math::TrulyRandom" check it in the CPAN..
Excellence is an Endeavor of Persistence.
Chance Favors a Prepared Mind.