For good advice on better ways to initialize srand check out Perl's auto srand() RE: a random sort of list. Modern Perls don't need it. Older ones do. But there is no need to throw away randomness if it might be there.

Also random shuffles get discussed on this site. In particular there was a thread on how to make the FAQ one more efficient here.