use Data::Dumper;
use Spreadsheet::ParseExcel;

my $excel = Spreadsheet::ParseExcel::Workbook->Parse("spreadsheet.xls");

foreach my $sheet (@{$excel->{Worksheet}})
{
	my $i=8;

	do 
	{
	$i++;
	print "this is sample testing";
	}  
while($i <= 10);
{
                      if($cell = $sheet->{Cells}[$i][8])
		        {
    				$simplevalue = $cell->{Val};
				print "\n--", $simplevalue;			

 if($cell = $sheet->{Cells}[$i][13])
			{
    				$simplevalue = $cell->{Val};
				print "\n--", $simplevalue;			

			}
 if($cell = $sheet->{Cells}[$i][13])
			{
    				$simplevalue = $cell->{Val};
				print "\n--", $simplevalue;			

			}
 if($cell = $sheet->{Cells}[$i][13])
			{
    				$simplevalue = $cell->{Val};
				print "\n--", $simplevalue;			

			}
 if($cell = $sheet->{Cells}[$i][13])
			{
    				$simplevalue = $cell->{Val};
				print "\n--", $simplevalue;			

			}
 if($cell = $sheet->{Cells}[$i][13])
			{
    				$simplevalue = $cell->{Val};
				print "\n--", $simplevalue;			


			}

	}
}

}