Help for this page

Select Code to Download

Select or download this
```
sub DeleteLast($)
{
 pop @{$_[0]};
};
```

Select or download this

my @Tmp=(1..10);
print "@Tmp\n";
...
};
DeleteLast(\@Tmp);
print "@Tmp\n";