my @aa = qw/a b c d/;
print scalar @aa, "\n";
print "@{[scalar(@aa)]}\n";