my $colref = ReadData ("file.xls")->[$sheet]{cell}[$column];
pop @$colref while $#$colref > 1 && !defined $colref->[-1];
say "Column ${column}'s last defined row = ", $#$colref;