$worksheet = $workbook->add_worksheet("Population Chart");
$worksheet->add_write_handler(qr[\w], \&store_string_widths);
my $chart1 = $workbook->add_chart( type => 'bar', embedded => 1 );

# Configure the series.
$chart1->add_series(
      categories => '=Summary!$A$2:$A$row',
      values     => '=Summary!$G$2:$G$row',
      name       => 'World Population',
      );

# Add another series.
$chart1->add_series(
     categories => '=Summary!$A$2:$A$row',
     values     => '=Summary!$F$2:$F$row',
     name       => 'World Surface Area',
     );

# Add some labels.
$chart1->set_title( name => 'Results of Population analysis' );
$chart1->set_x_axis( name => 'Countries' );
$chart1->set_y_axis( name => 'Population' );

# Insert the chart into the main worksheet.
$worksheet->insert_chart( 'A2', $chart1 );
autofit_columns($worksheet);