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