Help for this page

Select Code to Download

Select or download this
```
    my $a=@_[0];
```
Select or download this
```
    my ($a)=@_;
```
Select or download this
```
    my $a=shift;
```