use v5.40;

use Variable::Magic qw( cast wizard );

my $wiz = wizard(
   get  => sub {
      say sprintf 'getter called for %X', refaddr( $_[0] );
      ${ $_[0] } = int( rand( 100 ) );
   },
);

my $var;
say sprintf '`$var` is %X', refaddr( \$var );

cast $var, $wiz;

for ( 1 .. 4 ) {
   say "Loop: $_";
   say "`\$var` has value $var";
}