use CGI qw/:all/;
print header();
print start_html(-title=>'Mein Titel');
my @table;
for (@irgendwas) {
    push @table,Tr(
               
 td({-width=>'50%'},'Trallala'),
               
 td({-width=>'50%'},'Zweite Zelle')
             );
}
print table(@table),end_html;

exit 0;