Perlで配列をシャッフルする

このところ、ソートばっかりやってて相当(*1)疲れたので、 たまには逆にシャッフルしてみようと思う。