And don't forget to throw a srand in there to give the rand function some help! Don't throw it inside any loop, as it only needs to be called once, before rand is.

**Note: It is best to consult your documentation (perldoc -f rand), as this is not needed in newer perls , but was in old ones.
** Added by editors, cause RE: How do I shuffle an array? doesn't show up in the Q&A section.