foreach $curr_graph (sort  keys %range_struct) {
	$Range = $Sheet->Range("$range_struct{$curr_graph}");
	$Chart = $Excel->Charts->Add;
	$Chart->{Name} = "$curr_graph";
	$Chart->{ChartType} = xlXYColumn;
	$Chart->Location(xlLocationAsObject, $Sheet->{Name});    
	$Chart = $Excel->ActiveChart;  
	$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns});
	$Chart->{HasTitle} = 1;
	$Chart->ChartTitle->{Text} = "COMPARISON CHART ".$curr_graph;

	}
}