use Modern::Perl;
use Spreadsheet::ParseExcel::Simple;
my $workbook = Spreadsheet::ParseExcel::Simple->read('Book1.xls') or die $!;
for my $worksheet ( $workbook->sheets ) {
    while ( $worksheet->has_data ) {
        say "Value = $_" for $worksheet->next_row;
    }
}