$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++;
}