perl -e"my @a=qw/a b c/; print scalar @a[0..2]" c