my $csv = Text::CSV_XS->new ({
    binary             => 1,
    auto_diag          => 1,
    allow_loose_quotes => 1,
    });
my @columns;
open my $fh, "<", $file or die "$file: $!";
while (my $row = $csv->getline ($fh)) {
    for (@$row) {
        my ($key, $value) = split m/"?:"?/, $_, 2;
        # ... 
        }