Help for this page

Select Code to Download

Select or download this
```
my $argN="default";
$argN=shift if @_;
```

Select or download this

&foo (1,2,3);

...
    ($a1, $a2, $a3, $a4, $a5, $a6) = @_;    
    print join "\n",$a1, $a2, $a3, $a4, $a5, $a6;
}