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
}

##</code><code>##

my @ARRAY = (
   'Company Name'    => [ 'CompanyInfo' => 'company_name', 30 ],
   'Company Address' => [ 'CompanyInfo' => 'company_addr', 60 ],
   ...
);