Help for this page

Select Code to Download

Select or download this

sub f { return   @_   }
sub g { return [ @_ ] }
...
my $d = [];
my @f = f($d);  printf("%d element(s), first=%s\n", 0+@f, $f[0]);
my @g = g($d);  printf("%d element(s), first=%s\n", 0+@g, $g[0]);

Select or download this

1 element(s), first=ARRAY(0x235f6c)
1 element(s), first=ARRAY(0x236020)