use Scalar::Util 'refaddr';

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