perl -e 'my @array = (1..21); splice(@array,9,1); print $_,"\n" for(@array)'