%macro test(n=,varlist=);
%local result;
%let i=1;
%do %until(%scan(&varlist,&i) = );
%let var=%scan(&varlist,&i);
%do j=1 %to &n;
%if &i=1 and &j=1 %then %let result=NORM=&var._&j;
%else %let result=&result, NORM=&var._&j;
%end;
%let i=%eval(&i+1);
%end;
&result;
%mend;
%test(n=3,varlist=income age weight other)
%test(n=4,varlist=haha hoho)