Help for this page
@x = sub { 0; for (4,3,2) { 1 } }->();
@x = sub { }->();
$x = sub { 0; for (4,3,2) { 1 } }->();