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