perl -le '$a[0]; print scalar @a'
perl -le '\$a[0]; print scalar @a'