use List::Util qw( shuffle );
my @shuffled_names = shuffle @names;