print $_->(1,2,3) for sub{ (shift//return 0) + &$_ };
6