$ echo 1,a | perl -MDP -MText::CSV_XS -wle'DPeek(Text::CSV_XS->new->getline(*ARGV))'
\AV()
$ echo 1,a | perl -MDP -MText::CSV_XS -we'DDumper(Text::CSV_XS->new->getline(*ARGV))'
$VAR1 = [
    '1',
    'a'
    ];