in reply to Re^2: How Perl Optimize your code & some code TIPS ;-P
in thread How Perl Optimize your code & some code TIPS ;-P

Nope. This is yet another particularity in Perl. This construct is given the same cure as while ($line = <FH>) { ... }. 
> perl -MO=Deparse -we'while ($foo = each %bar) { 1 }'
while (defined($foo = each %bar)) {
    '???';
}

[download]
Cheers,
ihb

In Section Meditations