package Foo;
    my $Bar = 0;

##</code><code>##

    $self->{'_BAR'} = \$Bar;

##</code><code>##

    print "\$Bar is currently ", ${ $self->{'_BAR'} };