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

In the spirit of fun, here’s a solution using the somewhat obscure each function. (Don’t believe I have ever used it before.)

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