# One Way
my $table_dat = undef;

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

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