There's no need to use srand in your code any more. perlfunc:srand says:

It's usually not necessary to call C<srand()> at all, because if it is not called explicitly, it is called implicitly at the first use of the C<rand()> operator. However, this was not the case in version of Perl before 5.004

So, unless you intend to run this code on using very old versions of Perl, you're better off without this call.