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

my $x = '...';

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