$ perl -wE '$_ = 1; sub p { say }; given (42) { say; p }'
42
1