$len = length $gBuf{$bName}[0];

##</code><code>##

$len = @{$gBuf{$bName}};