Select Code to Download

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

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

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