perl -e '@l=map{next if($_==10)}(0..100); print "@l"'