my $ref2 = ReadData ("test.xls");
my @row = row($ref2, 6);<br>

for (my $i=0; $i<=$#row; $i++) {
print "$row[$i]\n";
}

my @rows = rows($ref2);

# print the whole thing one at a time
for $i ( 0 .. $#rows ) {
   for $j ( 0 .. $#{$rows[$i]} ) {
      print "element $i $j is $rows[$i][$j]\n";
   }
}