Have a look at the splice function in the perlfunc documentation page.
In your case, splice(@1, $#1, 1) will do the trick.
Hope this helps, -gjb-
In reply to Re: simple array question
by gjb
in thread simple array question
by Anaximander
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |