my @array = qw/a b c d e/;
print scalar @array, "\n";
__OUTPUT__
5