das while(defined $x = <HANDLE) war frueher sogar mal zwingend noetig; ich glaube, das wurde erst mit perl5.6 standardmaessig durch defined erweitert.
Ich verwende es auch so gut wie immer...