sub func1
{
    # do some stuff

    return [$a, $b];
}

##</code><code>##

$ref = fuc1();

#or

@ref = @{func1()};