my $Workbook = $Excel->Workbooks->Open({Filename=>"test.xls"});
	my $curSheet = $Workbook->Worksheets(1);

	$curSheet->Range("2:2")->{Value} = $curSheet->Range("1:1")->{Value};