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