sub oogle { my $self = shift; $self -> {oogle} = shift; # Mark it as very, very, very, do not touch at all private: $self -> {_________________furble} ++; } #### sub habar { my $self = shift; $self -> {_________________furble} = 0; } #### package My::Package { my %furble; my %oogle; sub oogle { my $self = shift; $oogle {$self} = shift; $furble {$self} ++; } }