COMPANYNAME: {
        my $company_name = $cgi->textfield(
            -name=>'company_name',
            -default=>$tabdata->{CompanyInfo}->{company_name},
            -size=>30
        );
        $screen->AppendToSection('body',<<"EOF");
            <tr>
                <td class="fieldname">Company Name</td>
                <td class="fieldvalue">$company_name</td>
            </tr>
EOF
}
[download]

In this case I would certainly use a hash. You say you have the above bit of code duplicated several times in your script? This is immediately a sign that your code can probably be re-worked to eliminate the duplication.

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
}
[download]

If your code varies in more than this respect (e.g. size, the use of another hash key besides CompanyInfo, etc), you could re-structure the @FIELDS array something like this:

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

Then adapt your code to follow suit..

To quote something pinkyish: "Astounding Brain, how do you do it?" This is something i've done similarly other places before, and for some reason I had a brainfart and forgot I could do this. Thanks for reminding of something I shouldn't have forgotten to begin with :p This definitely cuts down on Code Bloat(TM), plus makes my code look 3r33t(TM)... Maybe you should author 3r33t perl tricks to live by...

sub DisplayFields {
    my ($screen,$screenname,$tabdata,$fields) = @_;
    for (my $i = 0; $i < @$fields; $i+=2) {
        my ($field,$style) = ($$fields[$i+1]->[1],'');
        if ($field eq 'textfield') {
            $field = $cgi->textfield(
                -name => @$fields[$i],
                -size => @$fields[$i+1]->[2],
                -default => $$tabdata->{$screenname}->{@$fields[$i]},
            );
        } elsif ($field eq 'picklist') {
            $field = $cgi->popup_menu(
                -name => @$fields[$i],
                -values => @$fields[$i+1]->[2],
                -labels => @$fields[$i+1]->[3],
                -default => $$tabdata->{$screenname}->{@$fields[$i]},
            );
        } elsif ($field eq 'checkbox') {
            $field = $cgi->checkbox(
                -name => @$fields[$i],
                -value => 1,
                -label => '',
                -checked => $$tabdata->{$screenname}->{@$fields[$i]},
            );
        } elsif ($field eq 'textarea') {
            $style = 'vertical-align: top';
            $field = $cgi->textarea(
                -name=> @$fields[$i],
                -rows => @$fields[$i+1]->[2],
                -columns => @$fields[$i+1]->[3],
                -default => $tabdata->{$screenname}->{@$fields[$i]},
            );
        }

        if ($field eq 'begin_table') {
            $$screen->AppendToSection('body',qq(<table class="@$fields
+[$i+1]->[2]"><tr><td>&nbsp;</td></tr>));
        } elsif ($field eq 'end_table') {
            $$screen->AppendToSection('body','</table>');
        } else {
            $$screen->AppendToSection('body',qq(<tr><td class="fieldna
+me" style="$style">@$fields[$i+1]->[0]</td><td class="fieldvalue">$fi
+eld</td></tr>));
        }
    }
}
[download]

sub CoreModuleInfoTabEdit {
    my($module,$tabdata,$screen) = @_;
    SetupStyles(\$screen);
    DisplayFields(\$screen,'CoreModuleInfo',\$tabdata,[
        begin_table        =>    ['','begin_table','config'],
        exit_url        =>    ['Exit URL','textfield',50],
        session_expire_time    =>    ['Session Expire Time (minutes)',
+'textfield',4],
        session_max_time    =>    ['Session Max Time (hours)','textfie
+ld',4],
        allow_guest_login    =>    ['Allow Guest Logins','checkbox',''
+],
        end_table        =>    ['','end_table',''],
    ]);
}
[download]