use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';

my $excel = Win32::OLE->CreateObject('Excel.Application') or die $!;
$excel->{Visible} = 1;

my $workbook  = $excel->Workbooks->Add;
my $worksheet = $workbook->ActiveSheet;

$worksheet->Range('A1:B2')->{Value} = [[1,2],[2,4]];

$worksheet->Range('A1:B2')->AutoFill({
    Destination => $worksheet->Range('A1:B17'),
    Type        => xlFillDefault,
});

##</code><code>##

my $ws2 = $workbook->Sheets('SheetName');
$ws2->...