our ($For, $While, $Map, $Grep, $If) =
  qw( For   While   Map   Grep   If)
;

local $For = 'local' for 1;
local $While = 'local' while ! $a++;
map +(local $Map = 'local'), 1;
grep +(local $Grep = 'local'), 1;
local $If = 'local' if 1;

print "For:   $For\n";
print "While: $While\n";
print "Map:   $Map\n";
print "Grep:  $Grep\n";
print "If:    $If\n";

__END__
For:   For
While: While
Map:   Map
Grep:  Grep
If:    local

##</code><code>##

map { use strict; } LIST

##</code><code>##

map do { use strict; }, LIST