my $csv = Text::CSV_XS->new ({
    quote_char => '"',
    sep_char   => ":",
    binary     => 1,
    });
my @columns;
open (FILE, $csvfile) or die "Can't open $csvfile: $!";
while (<FILE>) {
    $csv->parse ($_) or die "parse() failed: " . $csv->error_input ();
    my @data = $csv->fields ();
    for my $i (0..$#data) {
        push @{$columns[$i]}, $data[$i];
        }