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