use Scalar::Util 'refaddr';

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

Here is the output:

loop variable 135603848
135606104
loop variable 135606092
135606104
[download]