%hash = map
  +(++$i % 2 ? lc($_) : $_),
  (foo => 'BAR', This => 'thAT', THESE => 'Those');

for (keys %hash) { print "$_ => $hash{$_}\n" }

__END__
this => thAT
these => Those
foo => BAR