our $csvs = qr/(?:"(?:[^"]|"")*"|[^",])+/;

sub csv_file_to_AoA {
    map{[csv($_)]}grep{/\S/}split/\n/,file_contents($_[0])
}

sub csv {
    my @x = $_[0] =~ /(${csvs})(?:,|$)/g;
    for(@x){
        /^"(.*?)"$/s ? $_ = $1 : undef;
        $_ =~ s/""/"/g;
    } @x
}

sub file_contents {
   local $/ = undef;
   open(my$F,$_[0])||die"cant open : $_[0]\n$!\n";
   my $x = <$F>
}