>perl -E"sub mk { my $x=$_[0]; sub { $x } }  $x=mk('a'); $y=mk('b'); say $x->(),$y->()"
ab