for my $i (0..1)
{
print "$sheet->{Cells}[$i][0]{Val}";
     $i++;
}