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