data junk;
  retain ctr 0 a1-a10;
*  retain ctr 0;
  array a(10) a1-a10;
  input x @@;
    ctr = ctr + 1;
	a(ctr) = x;
  datalines;
21 22 23 24 25 26 27 28 29 30
;
run;


proc print data=junk;
run;

proc transpose data=junk out=tran_junk;
  var x;
run;

proc print data=tran_junk;
run;