$piedata =[ 
           ["NAME","TOM"],
		    ["AGE","22"],
			];
$sheet    = $workbook -> Worksheets(3);
$sheet -> Activate;

$range_of_data = $workbook->ActiveSheet->Range("H1:I2");
$range_of_data->{Value} = $piedata;		   

$chart = $workbook->Charts->Add;
$chart->SetSourceData($range_of_data, 2);
$chart->{ChartType} = 70;
$chart->Location(2, "Sheet1");