sub func1{
....

...
return ($a,$b);
}

##</code><code>##

my ($aryref_a, $aryref_b) = func1();