use List::Util 'shuffle';
@shuffled = shuffle(@list);