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