use List::Utils qw(shuffle);
my @shuffled_crowed = shuffle @crowd;