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::WriteExcel;

my $workbook = Spreadsheet::WriteExcel->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,14],[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();