BEGIN {
    # at compile time
    %stash =();                # 'package stash'
    $stash{n}{SCALAR} =undef;  # $n first use ( i.e. our-declaration )
    $n_glob = $stash{n};       # exists only hardcoded
}

# at runtime: execute compiled op-codes
$n_glob->{SCALAR}=123;       
delete $stash{n};
print $n_glob->{SCALAR};       # > 123

##</code><code>##

  DB<104> $n=123
 => 123

  DB<105> *n{SCALAR}
 => \123