...
use Spreadsheet::ParseExcel;
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($file);
my $oWkS = $oBook->{Worksheet}[0];

for(my $i = $oWkS->{MinRow}+1 ; defined $oWkS->{MaxRow} && $i <= $oWkS->{MaxRow} ; $i++) {
    my $oWkC1 = $oWkS->{Cells}[$i][0];
}
...