The quickest solution I can think of (without trying to understand your code), is to dereference the array as you send it to the sub, ie:

anglecast (@{$matrix});
[download]

cLive ;-)

--
seek(JOB,$$LA,0);