my @matrix = map { chomp; [ split /\s*,\s*/, $_ ] } <>;