# instanz erstellen
my $m = bless{counter => 99};

# gibt referenz zurück
sub counter{
    my $self = shift;
    \$self->{counter};
}

# dereferenzieren
print ${$m->counter};