use strict;
use warnings;

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

my $i;
my $csv = Text::CSV_XS->new({sep_char => ';'});

while (<DATA>) {
   $i = 0;
   warn and next unless $csv->parse($_);
   print CGI::row(map eval "CGI::col@{[++$i]}('$_')", $csv->fields);
}

__DATA__
colContents;nextColContents;lastColContents
colContents2;nextColContents2;lastColContents2
colContents3;nextColContents3;lastColContents3
a;b;c;d;e
f;g;h;i
j;k
l
m;n;o

##</code><code>##

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>;