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