Re^3: A brain twister? (how to make 2 lines->1)

[MidLifeXis]

How about

while (my ($key, $value) = each %hash) {...}

See each for details. The example is directly from the documentation.