sub writeToSpreadSheet { my ($row, $hashReference) = @_; ...