$worksheet_Report_write->insert_chart("A".($StartLine+33), $chartCycloComplx, 0, 0); $chartCycloComplx->set_title( name => 'Cyclomatische Complexity'); $chartCycloComplx->set_x_axis(name => 'tested files'); $chartCycloComplx->set_y_axis(name => 'Warning Value'); for(my $i=0; $i<50 and $i<@CycloComplxArray; $i++) { my $Filename= ${$CycloComplxArray[$i]}[0]; my $FunktionName= ${$CycloComplxArray[$i]}[1]; my $Value= ${$CycloComplxArray[$i]}[2]; $chartCycloComplx->add_series( #categories => $i, values => $Value, name => $Filename, ); }