Mega Code Archive

 

Categories / Perl / Subroutine

 

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";