Your code:

    print $query->popup_menu(-name=>'directory',
                             -values=>\@dir,
                             -labels=>\@dir=>\@users);
[download]

That last statement, -labels=>\@dir=>\@users is probably being interpreted by perl as setting the anonymous hash defined by key \@dir, value \@users, and using that as the arguement to -labels, which is expecting an array. I think that "\@dir=>" is unnecessary in your case and can be removed.

Also, you don't need to read through the database twice. You can fill both @users and @dir in the same pass through the DB.

---

Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain