use SuperSplit;
use CGI qw/:html/;
$data = supersplit_open( ', ', $data_file );
print table Tr [map td( $_ ), @$data] ;