Select Code to Download

use strict;
use Spreadsheet::ParseExcel::Simple;

...
        print join ', ', @data;
    } 
}

Cell 1, Cell 2, Cell 3 Cell 4  Cell 5, Cell 6, Cell 7