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

##</code><code>##

my @aoa = ( [a, b, c], [d, e, f] );

##</code><code>##

my @array = @{$aoa[0]};
print scalar @array, "\n";
__OUTPUT__
3