One thing I'm a little unclear about -- is @field_vals (which I don't see initialized anywhere) the same as @fields?

Depending on that, you could take a couple of approaches... Here's one:

$x = 0;
for (0..($#fields-1)){
     print<<HTML;
     <TR BGCOLOR="e0e0e0">
          <TD>$fs<B>\u$field:</B>$fc</TD>
          <TD><INPUT TYPE=TEXT NAME="$fields[$_]" VALUE="$field_vals[$
+x]" SIZE=40></TD>
     </TR>
HTML
     $x++;
}
[download]