use Scalar::Util 'refaddr';

for my $l ('a'..'b') {
        print 'loop variable ', refaddr \$l;
        $l =~ /(?{ print refaddr(\$l) }) /x;
}

##</code><code>##

loop variable 135603848
135606104
loop variable 135606092
135606104