use strict;
use Spreadsheet::WriteExcel;
use Data::Dumper;

my $workbook   = Spreadsheet::WriteExcel->new("write_arrays.xls");
my $worksheet1 = $workbook->add_worksheet('Example 1');

my @arr = (
    [ 'A' , 1,  0,  5,  6 ],
    [ 'B' , 3 , 4 , 5 , 6 ],
    [ 'C' , 2 , 4  ,3  ,5 ],
    [ 'D' , 6 , 7 , 8  ,8 ]  
);

my @arr1 = (
    [ 'E' , 8 , 8 , 8 , 5 ],
    [ 'F' , 4 , 3 , 2  ,2 ],
    [ 'G' , 1 , 8 , 8,  8 ],
    [ 'H' , 1 , 4 , 5,  6 ]
);

my @new;
push(@arr, [@arr1]);

$worksheet1->write_col('A3', \@arr);