$ perl -wle 'my @a=(2,3,4); splice @a, 1, 1, (); print scalar @a'
2