package My::Package {
        my %furble;
        my %oogle;
   
        sub oogle {
            my $self = shift;
            $oogle  {$self} = shift;
            $furble {$self} ++;
        }
    }