srand is needed only in versions of Perl before 5.004. I believe he might want to shuffle a deck of cards (ie there are only four aces, not an infinite supply).