Here's a similar approach that avoids the bug in chop LIST: sub foo {chop(@_=pop)} Note: chop($_=pop) would work as well, but it also changes the value of $_, which could affect the rest of the code.