$\=$/;
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);