Select Code to Download

...
if (defined  ($eSheet->{Cells}[$row][0] ))
...
 print "Found invalid/empty value for '$key' in ($row,$col), reusing t
+he value from ($r,$col): '$val'\n";

}

foreach $row( 1 .. $eSheet->{MaxRow} )
{
...
$master_key=$master_key;
}
...

foreach $row( 1 .. $eSheet->{MaxRow} )
{
...
    {
        $master_key=$master_key;
    }