foreach ( ... ) { my $line = $_; ...