perl -e'$_>++$i&&die"$i\n"for 1..3,5,6,7'