open ALL, "alltrans.csv" or die "Can not open file: $!";
while (<ALL>) {
    chomp;
    push @alltrans, [ split /,/, $_, -1 ];
}
close ALL;