for $line (<DATA>) {}
# or
for alias $line (<DATA>) {}