Maybe your overthinking the problem.

You could just try converting all the data from the xls format and separate it by a common non-used deliminator like :::

data1:::data2:::data3:::

Then just do a split on all the data and reassign in whatever format you need in the csv

@stringtempsplit = split(/:::/, $stringtemp);

","@stringtempsplit3"."@stringtempsplit[0]","@stringtempsplit4"," etc

Hope that helps..