use List::Util qw[shuffle];