If you have a spreadsheet to start with, why not read it directly, with, for example Spreadsheet::ParseExcel?

Other than that, you've got a simple task of "loop{read, read, concatenate, write}"

Try it and see how it goes.