my @array = qw/zero one two three/;
print @array, $/;
print "@array\n";
print "${@array}\n";

##</code><code>##

14:38:57 ~/perl/source $ perl -w array
zeroonetwothree
zero one two three

14:38:59 ~/perl/source $

##</code><code>##

my @array = qw/zero one two three/;
my $n = scalar @array;
print "$n\n";

##</code><code>##

14:44:42 ~/perl/source $ perl -w array
4
14:44:49 ~/perl/source $