Select Code to Download

my %hash = map $_=>1, qw(shave the modern way);

map +($_ => 1), ...

my %hash = map $_, 1, qw(shave the modern way);
my %hash = map { $_ } 1, qw(shave the modern way);

map f($_) => LIST