Select Code to Download

use Spreadsheet::Read;
use Spreadsheet::Read qw(row rows);

my $ref2 = ReadData ("test.xls");
my @row = row($ref2, 6);<br>
...
      print "element $i $j is $rows[$i][$j]\n";
   }
}