You initialize

 
my $row_in  = 2;
my $col_in  = 0;
[download]

but then use

$sheet->AddCell( $row, $col, $value );
[download]

I suggest you uncomment these and fix the errors/warnings

#use strict;
#use warnings;
[download]

poj