Select Code to Download

 my @regUsers;
 
...
while ( my @userRows = $sth->fetchrow_array() ) { push @regUsers, @use
+rRows; }

print join("\n",@regUsers);

my @users = $dbh->selectall_array("SELECT `UserName` FROM Account a, a
+sscAccountAccountGroup aaag, asscRoleAccountGroup arag, Role r WHERE 
+a.Id = aaag.AccountId AND aaag.AccountGroupId = arag.AccountGroupId A
+ND arag.RoleId = r.Id AND r.Name = 'ROLE_REVIEWER'");

print join("\n",@users);