And BTW, srand is called implicitly at your first use of rand, as long as you're using perl 5.004 or greater. perldoc srand