Same result with perl5.6.1 (ActiveState build 626).
-- Hofmator
In reply to Re5: while by Hofmator in thread while without parentheses by Anonymous Monk