my $self = {};
my $var : shared = 1;
$self->{var} = \$var;

#(Update)Then later to get or set $var:
${$self->{var}} = 0;
...
while (${$self->{var}) {
...