use Excel::Writer::XLSX ;
......
.....
 
my $p = $chart->add_series(
 categories => '=Sheet1!$A1:$B1',
 values => '=Sheet1!$A2:$B2',
 data_labels => { value => 1},
 );
$chart->set_style( 18 );
$worksheet->insert_chart ('A4', $chart,0,0) ;