...

$R->set("mat[$_]", $mat[$_] ) for 0 .. $#mat;

##</code><code>##

mat=matrix(1:12,3,4)