you can try the following program.
proc iml;
x={1,2,3,4,5};
x1=sum(x);
x2=x[#,];
print x1 x2;
quit;
--------------------------------------------------------------------------------------
*----------------------------------;
* Subscript reduction operators ;
*----------------------------------;
a = { 0 1 2 };
colsum = a[+,];
rowsum = a[,+];
colmax = a[<>,];
rowmin = a[,><];
colmean= a[:,];
colprod= a[#,];
colssq = a[##,];
-----------------------------------------------------------------------------------
from: http://www.psych.yorku.ca/friendly/lab/files/psy6140/examples/iml/imlxmp1.sas