my @FIELDS = (
   company_name => 'Company Name',
   company_addr => 'Company Address',
   ...
);

for (my $i = 0; $i < @FIELDS; $i+=2) {
   my $field = $cgi->textfield(
      -name    => $FIELDS[$i],
      -default => $tabdata->{CompanyInfo}->{$FIELDS[$i]},
      -size    => 30,
   );

   $screen->AppendToSection('body', <<"EOF");
      <tr>
         <td class='fieldname'>$FIELDS[$i+1]</td>
         <td class='fieldvalue'>$field</td>
      </tr>
EOF
}