use Text::CSV;
my $csv = Text::CSV->new ({ binary => 1, auto_diag => 1 });          

open my $in_fh, "<", "temporary.tl"
    or die "please create your temporary file: $!";

my @rows = ();
while (my $row = $csv->getline ($in_fh)) {
    push @rows, $row;
    }