tamaguchi,
This is a FAQ but the short answer is to use List::Util's shuffle() function. If you are interested in other ways then search the FAQs ;-)