my @fieldNames = qw(fullname username authname email chk1 chk2 chk3 emp_id emp_name emp_cat);

foreach my $fieldName (@fieldNames)
...