#!/usr/local/bin/perl

use CGI qw/:standard/;

my @data = ([qw/x y z/], [qw/a b c/], [qw/1 2 3/]);
print
    header,
    table({-width=>200},
            [join '', (map Tr(map td($_), @$_), @data)]);

##</code><code>##

#!/usr/local/bin/perl

use CGI qw/:standard/;

my @data = ([qw/x y z/], [qw/a b c/], [qw/1 2 3/]);
print
    header,
    table({-width=>200,
           -border=>1},
            [Tr([map (td([map $_, @$_]), @data)])]);