sub gen (&) { shift }
gen { 'bar' };
*ken = \ & gen;
ken();
sub { shift } ->();