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