$table = new HTML::Table;
$table -> setBorder(2);
foreach $row (@$data) {
        $table->addRow( @$row );
}
# $table->print;