Just for the record, $row is an arraref, not a hashref.

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