Shifting columns in excel using perl

[Dinesh12]

Hi,
I am using perl. I have generated my 2d array datas using formy loop from A4 to D4. I want that datas from N4 to T4.


#!usr/local/bin/perl
print("Enter the no of corners:");
$corners=<STDIN >;

use Spreadsheet::Wr iteExcel;

my $workbook = Spreadsheet::Wr iteExcel->new( 'newproj.xls' );
my $worksheet = $workbook->add_worksheet( );
my $format = $workbook->add_format() ;
$format->set_bold();

@array = ( ["","","","","", "","",""] , ["","","","","", "","",""] , ["","","","","", "","",""] , [1,2,3,4,5,6,7] ,[2,4,6,8,10,12,1 4],[3,6,9,12,15,18, 21] );

for my $i(0 .. $corners)
{
for my $j(0 .. 5)
{
$worksheet->write($j, $i , $array[$j][$i])
}
}

$workbook->close();