$ perl -we'my @a=qw( a b c ); my $x = @a . "\n"; print $x' | od -c
0000000   3  \n
0000002