in reply to CODE REVIEW: Use of uninitialised value in string eq at inventur.pl line 66 - Can't use an undefined value as a HASH reference at inventur.pl line 66.
if( $sheet->Range("D" . $i)->{Value} eq "0") [download]
my guess is here, $sheet->Range("D" . $i) is not what you think it is