use CGI qw(*table);

print start_table({-border=>0, -cellspacing=>0, -width=>'100%'}), "\n";

for $data (@list) {
    print "row data loop\n";
}

print end_table;