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