#!/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)]);