There's a bunch of ways to do this. Here's two.

# 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]

-Lee

"To be civilized is to deny one's nature."