Subroutine Perl

sub getarrays
{
    @a = (1, 2, 3);
    @b = (4, 5, 6);
    return \@a, \@b;
}
($aref, $bref) = getarrays;
print "@$aref\n";
print "@$bref\n";