Perl, how to lowercase all hash values?

Question

I need to copy a (one-level) hash to a new one, with all values lowercased.

Do you know a smart method (just to avoid an ugly foreach... ;-)

Answer 1

my %new = map { $_ => lc $old{$_} } keys %old;

Answer 2

This is a one liner using map:

my %newHash = map { $_ => lc $existingHash{$_} } keys %existingHash;