Subroutine Perl

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