Select Code to Download

if($cellvalue1 eq $cellvalue2){print "are the same\n";} else {die "not
+ the same\n";}

$worksheet{1}_>write($row,$column1,$cellvalue1,$format);
$worksheet{1}_>write($row,$column2,$cellvalue2,$format);