perl -e ' my @a=(1,1,1,1,1,1,1,1); my $i= @a; print "$i\n"; '

outputs
8