$ perl -E'my @a = (4,5); say 0+@a; delete $a[10]; say 0+@a;'
2
2