Select Code to Download

use strict;
use warnings;
...
$sht->Cells(4,1)->{Value} = "Data 3";

$sht->Cells(2,1)->EntireRow->Insert;