If you change this...

&doublevalue(\@arra);
[download]

This seems to work just fine for me, unless I'm missing something.