use Text::CSV_XS;
use CGI::Pretty qw(-any);

my $csv = Text::CSV_XS->new({sep_char => ';'});
$csv->parse($_) and print CGI::row(CGI::col([$csv->fields]))
      while <DATA>;