my @AoA = [split /[,\s]+/, $_] for @array;