use strict;

# ...

my $exists =
  exists $hoh{ typo }{ attrib_1 };       # strict can't hear you scream...

# ... life goes on

my $number_of_entities = keys %hoh;      # BONK!