Rick,
How about this one .

data test;
input t1-t3;
datalines;
45 50 55
42 42 45
36 41 43
39 35 40
51 55 59
44 49 56
;

proc iml;
use test; read all into x; close test;
ncol=ncol(x);
nrow=nrow(x);
c=colvec(ranperm(1:ncol,nrow));
r=colvec(row(x));
t=colvec(x);
y=full(t||r||c);
print x,y;
quit;