What do you want to do with the charts?
With data as
data = RandomInteger[{0, 25}, {5, 3}];
one approach might be
plot = PieChart[data[[#]], PlotLabel -> #,
ChartLegends -> {"a", "b", "c"},
ChartLabels -> {"a", "b", "c"}] & /@ Range[Length@data]
which we can export using
Export[StringJoin["Chart_", IntegerString[#], ".pdf"], plot[[#]]] & /@
Range[Length@data]