use List::Util qw(shuffle);
my @shuffled = shuffle 0..32;