Help for this page
for alias my $line (<DATA>) {}
alias my $line = <DATA>; while ( defined( alias my $line = <DATA> ) ) {}