my @AoA = map { [split q(,), $_] } <>;