A couple of things that might make your life a bit easier:

1. The map function can often be used as an "inline foreach".
2. In CGI.pm, the Tr and td functions (amongst others) have a neat feature whereby if you pass them a reference to an array, then they return a <tr> or <td> tag for each element in the array.

I don't know what your data structure looks like, but this sample code might help:

my @list = ('chk1|name1|cost1|number1|txt1',
            'chk2|name2|cost2|number2|txt2',
            'chk3|name3|cost3|number3|txt3');

print table(Tr([map { td([split /\|/, $_])."\n" } @list ]));
[download]

"The first rule of Perl club is you don't talk about Perl club."

<table bgcolor=#66aaff border=2 bordercolor=#ffffff cellspacing=0 cell
+padding=6>
    <TMPL_LOOP RESULTS>
        <tr>
            <td>
                <TMPL_VAR CHK>
            </td>
            <td>
                <TMPL_VAR NAME>
            </td>
            <td>
                <TMPL_VAR COST>
            </td>
            <td>
                <TMPL_VAR NUMBER>
            </td>
            <td>
                <TMPL_VAR TXT>
            </td>
        </tr>
    </TMPL_LOOP>
</table>
[download]

#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);
use HTML::Template;

# my guess about what your data structure might be:
my %information = (
    txt_foo => ['chk_foo','name_foo','cost_foo','number_foo'],
    txt_bar => ['chk_bar','name_bar','cost_bar','number_bar'],
    txt_baz => ['chk_baz','name_baz','cost_baz','number_baz'],
);

# initialise the template and other vars:
my $results_tmpl = HTML::Template->new(filename => 'results.tmpl');
my @results;

# populate @results with the data from %information:
for (keys %information) {
    my %row_data;
    $row_data{'txt'} = $_;
    $row_data{'chk'} = $information{$_}[0];
    $row_data{'name'} = $information{$_}[1];
    $row_data{'cost'} = $information{$_}[2];
    $row_data{'number'} = $information{$_}[3];
    push @results, \%row_data;
}

# drop the info into the template:
$results_tmpl->param(results => \@results);

# print the page:
print
    header,
    start_html,
    $results_tmpl->output(),
    end_html;
[download]

$results_tmpl->param(
    results => (
        txt => 'txt_foo',
        chk => 'chk_foo',
        ......
[download]

#!/usr/bin/perl -w

use strict;
module library
use CGI qw(:standard);
use CGI::tab;

my %information = (
    txt_foo => ['chk_foo','name_foo','cost_foo','number_foo'],
    txt_bar => ['chk_bar','name_bar','cost_bar','number_bar'],
    txt_baz => ['chk_baz','name_baz','cost_baz','number_baz'],
);

print
    header,
    start_html,
    start_tabs(75,150,225,300);

for my $key (keys %information) {
    print $key,t;
    print $_,t for @{ $information{$key} };
}

print 
    end_tabs,
    end_html;
[download]

# One Way
my $table_dat = undef;

foreach my $ell (@elements){
    $table_dat.=Tr(td(b("Label")),td($ell)); # Whatever you need to ou
+tput.
}

print table($table_dat);

# Second way

use CGI qw/:standard *table/; # Import start_table and end_table

print start_table
# Data processing here to spit out rows and cells...
     foreach my $ell (@elements){
        print  Tr(td(b("Label")),td($ell));
     }

print end_table
[download]