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