Select Code to Download

    #!/usr/bin/perl -w

...

    $workbook->SaveAs({FileName => cwd() . '/test.xls'});
    $workbook->Close;

    my @data = (
                    ['maggie', 'milly', 'molly', 'may'  ],
...
               );

    $worksheet->Range('A1:D3')->{Value} = \@data;

    #!/usr/bin/perl -w

...


    $worksheet->write_col('A1', \@data);