You could just turn the scalar and array around:

... return $count,@retary;

...

($num,@ary1)=blablabla
[download]

Reason is that the array eats everything and let $num undef, but the other way around you eat $num first and then let the array eat the rest...

T I M T O W T D I