$column=1; foreach my $dept (sort keys %every_dept) { $row=1; $Sheet->Cells($row++,$column)->{Value} = $dept; foreach (@{$every_dept{$dept}}) { $Sheet->Cells($row,$column)->{Value} = $_; $Sheet->Cells($row,$column+1)->{Value} = ; $row++; #my $range = 'b'.$y; #$Sheet->Range($range)->Interior->{ColorIndex} =$y; #$Sheet->Range($range)->{Value} = $y; } $column+=2; }