$ perl -E 'sub W { grep { say "x" } 1; say "y" } W'
x
y