my $username = $usernames[rand(@usernames)];