Don't forget that when you use 'rand' you have to 'srand' to initialize the random number generator:

As of 5.5 and later, you don't have to. Done for you automatically. You may want to randomize it to something a little more crypto-secure, but it will start in a spun place differently each time.

-- Randal L. Schwartz, Perl hacker