for alias my $line (<DATA>) {}