Perl, how to write all hash values?

Question

I need to copy the (single-level) hash to a new one, with all the values ​​below.

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

Answer 1

In a fun spirit, here's a solution using a somewhat obscure feature each. (Do not believe that I have ever used it before.)

$new{$key} = lc $val while ($key,$val) = each %old;

Answer 2

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

Answer 3

map:

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

Answer 4

, :

my %new_hash;
@new_hash{keys %old_hash} = map lc, values %old_hash;

, keys values , , , .

Answer 5

( , , ).

my %new = %old;
$_ = lc for values %new;