@{$sheet->{Cells}[$row]};
				
	my @indexes = (2 .. (2+4-1));
	my @dcells = @{$sheet->{Cells}[$row]}[@indexes];
	open FILE, ">>forgetyou.txt";
			
        foreach (@dcells) {
		print FILE ($_);
			}
		close FILE;

##</code><code>##

Spreadsheet::ParseExcel::Cell=HASH(0x70a49a8)Spreadsheet::ParseExcel::Cell=HASH(0x70a4a08)Spreadsheet::ParseExcel::Cell=HASH(0x70a4a98)