$\=$/;
sub tst { print shift }
sub ptst(&) { print shift }

sub ff { tst sub {1, 2, 3,} } ff for (1..3);
sub ff { print sub {1, 2, 5,} } ff for (1..3);
sub ff { ptst {1, 2, 4,} } ff for (1..3);

##</code><code>##

  
  DB<1> $\=$/;


  DB<2> sub tst { print shift }


  DB<3> sub ptst(&) { print shift }

  DB<4> sub ff { tst sub {1, 2, 3,} } ff for (1..3);
CODE(0x2d1c1f8)
CODE(0x2d1c840)
CODE(0x2d1c828)

  DB<5> sub ff { print sub {1, 2, 5,} } ff for (1..3);
CODE(0x2d1c330)
CODE(0x2d1c330)
CODE(0x2d1c330)


  DB<6> sub ff { ptst {1, 2, 4,} } ff for (1..3);
CODE(0x2d1c8a0)
CODE(0x2d1c930)
CODE(0x2d1c8e8)
##</code><code>##

$\=$/;
sub ptst(&) { print shift }
sub ff {ptst {1, 2, 3, 4,} } ff for (1..3);
ptst {1, 2, 3, 4,};

##</code><code>##

CODE(0x20f2b8)
CODE(0x20f2b8)
CODE(0x20f2b8)