foreach $old(<DATA>) { ... }