my $parser_delaytemplate_oop = Spreadsheet::ParseExcel::SaveParser->new(); my $parser_delaytemplate_handler = $parser_delaytemplate_oop->Parse($open_thisoo) or die "Unable to open $open_thisoo\n, $!"; my $delaytemplate_me = $parser_delaytemplate_handler->worksheet(0); for(my $i = 0 ; $i < 1000000 ; $i++) { my $parser = $delaytemplate_me->get_cell(0, $i+1); if($parser) { $corners_xls[$counter_corners_xls++]= $parser->value(); } else { last; } }