my @foo = qw/foo bar baz/;
my $foocount = @foo;
print $foocount, $/;
print scalar(@foo), $/;