use OpenOffice::OODoc; my $document=odfDocument(file=>'test.ods'); foreach my $rr (0..10){ $document->updateCell("Sheet1",$rr,0,$rr."0"); } $document->save;