Question: how to extract data from excel sheet in perl?
Answer: #!/usr/bin/perl.
use 5.010;
use Spreadsheet::Read qw(ReadData);
my $book = ReadData('simple.xlsx');
say 'A1: ' . $ book->[1]{A1};
my @row = Spreadsheet::Read::row($book->[1], 1);
for my $i (0 .. $# row) {
say 'A' . ($ i+1) . ' ' . ($ row[$i] // '');