Other than the already given advice to use Spreadsheet::ParseXLSX, your code is wrong in that it generated invalid CSV if any of your cells contains " characters.

Consider using Text::CSV_XS and/or Text::CSV for the generation of valid CSV.

Even if your current speadsheeft does not hit this problem, your approach is likely to generate invalid CSV in other cases too.