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