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