sub getarrays
{
    @a = (1, 2, 3);
    @b = (4, 5, 6);

    return \@a, \@b;
}
($aref, $bref) = getarrays;

print "@$aref\n";
print "@$bref\n";