use List::Util qw(shuffle);

my @shuffled_usernames = shuffle(@usernames);