All possible shopping lists

[data_null__]

data price;
   array p[5];
   input p[*];
   cards;
10 20 30 40 50
;;;;
   run;
proc print;
   run;
proc summary data=price chartype;
   class p:;
   output out=comb(drop=_freq_);
   run;
data comb;
   set comb;
   total = sum(of p:);
   run;
proc print;
   run;