Good point. Or even

perl -e '@a=(0,1); map {@a=() if $_; $_} @a'
[download]