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

##</code><code>##

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

##</code><code>##

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