Я не могу найти способ подписать значения на частях диаграммы p ie.
Просто добавьте значения к данным в массиве @params.
@params
my @params = qw[param1 param2 param3]; my @values = qw[ 45 25 30]; $params[$_] = "$params[$_] ($values[$_])" for 0 .. $#params; my @data = (\@params, \@values);