Select Code to Download

my @usernames = qw(zero one two three four five six);
testswap(\@usernames);
...
 my $j = 5;
 @$array[$i, $j] = @$array[$j, $i];
}

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