You could also just bless the variable in your constructor:

package Foo;
use strict;

my $Bar = "Baz";

sub new
{
    return bless { BAR => $Bar };
}

package main;

my $Foo = new Foo();
print $Foo->{'BAR'};
[download]