How about

use List::Util qw(shuffle);

my @shuffled_usernames = shuffle(@usernames);
[download]

Cheers, Flo