length( $HashOfTNBs{$rec_co­unt}{$subindex} = $1 ) or throw TNBCriticalColExcept­ion( "Cannot add multiple key entry in hash array" ); #### if( "" eq ( $HashOfTNBs{$rec_co­unt}{$subindex} = $1 ) ) { throw TNBCriticalColExcept­ion( "Cannot add multiple key entry in hash array" ); }