$ perl -wE '@x = qw"a b c d e f g h"; say 0+@x; say join ":", grep { defined } @x[4 .. 99]; say 0+@x;'
8
e:f:g:h
100
$