Ok, this works and all. But what I can't figure out is the reason for two while loops. You can accomplish this with one loop. You can still have checks for !$1 and no regular users. Instead of putting all the nicks in %rnicks as nick1,nick2,nick3...you can just do $nick(#,%a,r) and when increasing %a, it will return the value of each nick. That's just my opinion though.