$x=0;
for $field (@fields) {

  next if $field =~ /[modified|META|WhateverYouWant]/;
  last if $x==$#fields; ## or just this
 
  print<<"HTML";
      <TR BGCOLOR="#e0e0e0">
      <TD>$fs<B>\u$field:</B>$fc</TD>
      <TD><INPUT TYPE="TEXT" NAME="$field" VALUE="$field_vals[$x]" SIZE="40"></TD>
     </TR>
HTML
$x++;
} # End of foreach.