my $x;
my $fake_sub = fake_subroutine $x => sub { \@_ }->($x, $x);

my $r = call $fake_sub, my $y;
$y = 1;
@$r; # => ( 1, 1 );