$worksheet->write($row, $col++, $_, $format) for @data;