sub create_closure {
  my $x = "x";
  my $y = "y";
  return sub {
    $y .= "y";
    eval q{print "x: $x\ny: $y\n"};
  };
}

create_closure()->();