while (<DATA>) { ... }

##</code><code>##

@foo = <DATA>;
while (@foo) { ... }

##</code><code>##

while (defined ($_ = readline(*DATA))) { ... }