Select Code to Download

sub foo {chop(@_=@_)}

@a = ('ab','cd','ef');
print chop @a;     # f
...

# the list assignment has the same effect here:
print chop(@a=@a); # b

sub foo {chop(@_=reverse @_)}