4.18 配列の要素をランダムに並べ替える

use List::Util qw(shuffle);
@array = shuffle(@array);