# perl -le '@a=(1..9); print scalar @a[2,6,5]'
6