for (@x) { no strict 'refs'; *$_ = sub { use strict 'refs'; # ... }; }