use strict; use warnings; grep { no strict 'refs'; }qw(x); #### use strict; use warnings; grep { 0; no strict 'refs'; }qw(x);