$row_counter=0;  
$column_counter=0;
  
my $chart = $workbook->add_chart( type => 'column',embedded => 1 );  
  
$alphabetic_increment='A';
  
for ( $column_counter=1; $column_counter < $summary_counter_column; $column_counter++ )
{
   $alphabetic_increment++;
  	
   $chart->add_series
   (
     name => '=SUMMARY!$'."$alphabetic_increment".'$1',
     categories =>'=SUMMARY!$A$2:$A'."$summary_counter_row",
     values     =>'=SUMMARY!$'."$alphabetic_increment".'$2:$'."$alphabetic_increment".'$'."$summary_counter_row"
   );  
   		
  
}
     
$chart->set_title ( name => 'Summary' );
$chart->set_x_axis( name => 'Item List' );
$chart->set_y_axis( name => 'Amount' );   
     
$summary->insert_chart( 'D16', $chart, 100, 50 );