my $newworksheet = $activeWorkbook->Worksheets->Add({Before=>$activeWorkbook->Worksheets(1)})  or die $!;
$newworksheet -> {Name} = "Chart$Tester";
#the sheet is created -> switch off the gridlines
$newworksheet -> DisplayGridlines = 'False';

##</code><code>##

my $Chart = $ChartSheet->ChartObjects->Add(@Position)->Chart; 
$Chart->{ChartType} = xlColumnClustered;
$Chart->SetSourceData({Source =>$Source, PlotBy => xlColumns});
$Chart->{HasTitle} = 1;
$Chart->ChartTitle->{Text} = "$Title";
$Chart->Axes(xlCategory, xlPrimary)->{HasTitle} = 1;
$Chart->Axes(xlCategory, xlPrimary)->AxisTitle->{Text} = "Groups";
$Chart->Axes(xlValue, xlPrimary)->{HasTitle} = 1;
$Chart->Axes(xlValue, xlPrimary)->AxisTitle->{Text} = "Utilization (in%)";
$Chart->Location({Where=>xlLocationAsObject, Name=>"$ChartSheet"});

#No Problem till here:      
$Chart->SeriesCollection(1)->ApplyDataLabels(AutoText=>'True', LegendKey=>'False',
 ShowSeriesName=>'False',
 ShowCategoryName=>'False',
 ShowValue=>'True',
 ShowPercentage=>'False',
 ShowBubbleSize=>'False');