if (my @bad = grep { /^(dualvar|set_prototype)$/ } @_ ) { ... }