Spreadsheet::Read is a wrapper around a variety of Spreadsheet parsing modules, amongst which is Spreadsheet::ParseExcel. Its default behaviour is to clip sheets to not show trailing empty columns and rows. Values like maxrow and maxcol will be adjusted accordingly.

If you are using perl-5.10 or up, the defined-or operator // might also come in very very handy.