@{$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;