use Text::CSV_XS qw( csv );
  my $aoa = csv (in => "file.csv");