#!/usr/bin/perl
use strict;
use warnings;
use CGI;

my $data = [ [1,23,3],[4,5,6],[2,3,6],[7,3,7] ];

my $q = CGI->new();

print $q->header.
      $q->start_html.
      $q->table(
          $q->Tr(
              [ map { $q->td($_) } @{$data} ]
          )
      ).
      $q->end_html;