The error message you are getting would indicate that $row is being left with an undef value after the line

        my $cell = $tdb->{Cells}[$row][0];.

Have you tried some print statements to trace the value of $cell at that point?