my $ic = Text::CSV->new({sep_char => ', '})                              
        or die Text::CSV->error_diag();