use List::Util 'shuffle';
@array = shuffle @array;