(my $line); # scoped outside of `while` block
while ($line = <>) {

}