sub f(&) { my ($cr) = @_; push @keep_alive, $cr; say $cr; }

my $x = '...';

f { '...' } for 1..2;
f { $x }    for 1..2;

##</code><code>##

CODE(0x3396f4)  \ same for non-capturing
CODE(0x3396f4)  /
CODE(0x24b1cc)  \ different for capturing
CODE(0x338c04)  /