#!/usr/bin/perl

use strict;
use warnings;

use HTML::Table;

my $data = [map { [ split /,/, $_ ] } (<DATA>)];

my $table = HTML::Table->new(
    -class          => 'sortable',
    -evenrowclass   => 'roweven',
    -oddrowclass    => 'rowodd',
    -head           => ['nr', 'id', 'date'],
    -data           => $data,
);

print $table->getTable;

__DATA__
1,X,2002-04-18
2,Y,2004-05-06
3,Z,2007-07-16