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