Help for this page

Select Code to Download


  1. or download this
    sub foo {
        my $num = shift;
        my @arr = (42)x$num;
    ...
    my $x = foo(1);
    
    print $x;
    
  2. or download this
    return wantarray ? @arr : $arr[0];