#!/usr/bin/perl -w

    use strict;
    use Cwd;
    use Win32::OLE;


    my $application = Win32::OLE->new("Excel.Application");
    my $workbook    = $application->Workbooks->Add;
    my $worksheet   = $workbook->Worksheets(1);


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

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


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

##</code><code>##

    my @data = (
                    ['maggie', 'milly', 'molly', 'may'  ],
                    [13,       14,      15,      16     ],
                    ['shell',  'star',  'crab',  'stone']
               );

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

##</code><code>##

    #!/usr/bin/perl -w


    use strict;
    use Spreadsheet::WriteExcel;


    my $workbook  = Spreadsheet::WriteExcel->new("test.xls");
    my $worksheet = $workbook->add_worksheet();


    my @data = (
                    ['maggie', 'milly', 'molly', 'may'  ],
                    [13,       14,      15,      16     ],
                    ['shell',  'star',  'crab',  'stone']
               );


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