Select Code to Download

use Data::Dumper;
use Spreadsheet::Read;

my $book = ReadData ("foo.xlsx");
print Dumper [ Spreadsheet::Read::rows($book->[1]) ];

$VAR1 = [
          [
...
            'tree'
          ]
        ];