%hash = map
  +(++$i % 2 ? lc($_) : $_),
  (foo => 'bar', This => 'that', THESE => 'those');