in reply to Infinite loop with each

We strongly recommend that you use strictures (use strict; use warnings;) for all your Perl scripts.

The fat comma => makes it a lot easier to check that initialization lists for hashes are correct. Consider:

my %some_hash = ( foo => 35, bar => 12.4, 2.5 => "hello", wilma => 1.72e30, betty => "bye\n" );

Perl is environmentally friendly - it saves trees