my $rows = [ [ qw(Head1 Head2 Head3) ], [ qw(foo bar baz) ], [ qw(one two three) ], [ qw(un deux trois) ] ]; my $table = DBIx::XHTML_Table->new($rows);