...

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