Perl 'each' is evil