> perl -wle "{pop@ARGV && redo}; print for @ARGV" 1 2 0 4 5
1
2

##</code><code>##

> perl -wle "{pop@ARGV,@ARGV && redo}; print for @ARGV" 1 2 0 4 5

##</code><code>##

> perl -wle "{local *_=\@ARGV; pop && redo}; print for @ARGV" 1 2 0 4 5