What do you mean with "extract data"? You mean, instead of writing those 5 lines P1R=mean(P1); and so on, you want to do in a loop? If so, all you have to do is to change P1, P2 and so on to one array P. If all the Px have been column arrays before, then P(:,1) should then correspond to P1 and so on. If they have been row arrays, P(1,:) should be the respective sub array. Depending on this, you get all the mean values with mean(P, dim) with dim being the dimension along the averaging should take place (1 means mean of each column, 2 means mean of each row).
Although it might look attractive at first sight, please don't use eval here. Just saying.