$_ = 'Ovid';
  %hash = map { $_ => 1 } qw/ foo bar baz /;
  print;