##
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} ++;
}
}