- - - - Admin
- - - - Admin ##

##

my $q = new CGI;
my $cnt = $q->param("count"); # validate for numeric and value in range
for my $sfx (1..$cnt) {
    my $userid = $q->param("userid_$sfx");
    my $first = $q->param("firstname_$sfx");
    my $last = $q->param("lastname_$sfx");
    my $email = $q->param("email_$sfx");
    my $dept = $q->param("department_$sfx");
    my $admin = $q->param("admin_$sfx");
    # validate all values above and update user record
}


##

##

---
print map { my ($m)=1<