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