Help for this page

Select Code to Download

Select or download this

sub foo {
    my $num = shift;
    my @arr = (42)x$num;
...
my $x = foo(1);

print $x;

Select or download this
return wantarray ? @arr : $arr[0];